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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ihe oy: ® SS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt be 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE RE A 
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® SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 
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* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
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ABSTRACT: 

ENVIRONMENT: 

AUTHOR: PETER H. LIPMAN . » CREATION DATE: 24-APR-78 
MODIFIED BY: 


V03-034 wMc0012 yne Cardoza 03-Jul-1984 
Fix register seabtie with WMC0O011. 


v03-033 wMC0011 yne Cardoza 25-May-1984 
Fix protection shetes for CRF global sections. 


v03-032 LMpgeet L. Mark Pilant, hor r-1984 16:22 
Modify the protection check to call EXESCHEC PROT_16 
instead of the various EXESCHKxxxACCES routines. ~ 


v03-031 wMCc0012 Wayne Cardoza 59-Apr-1984 
Fix check for resident section read complete. 


v03-030 cosgoet Christian D. Saether 99-Apr-1984 
redit BYTLM as well as BYTCNT when returning quota 
a result of creating shared WCB. It is now being 
charged by the file system. 


v03-029 wMC0011 Wayne Gerdoze 28-Mar-1984 
Check that page isn’t in memory seen by MP before 
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28 ; bumping the inhibit cownt. 
25 : Add hash byte to GSD. 
61; v03-028 wMc0010 Wayne Cardoza 14-Mar-1984 
0 rt ; Set valid bit in GPTE for resident global. 
0000 64 : V03-027 wMC0009 Wayne Cardoza 22-F eb-1984 
0900 92 ; Add resident global section support. 
900 88 : V03-026 MSHO00S Michael S. Harvey 3-F eb-1984 
0000 68 ; R5 is now a valid input for access checking routines. Make 
0900 $3 : sure R5 is correct before calling them. 
000 71; V03-025 MSHO004 Michael $. Harve 26-Jan-1984 
48 u¢ ; had support for lengthened globat section names in GSDs. 
0000 74: V03-024 wMC0008 Wayne Cardoza 12-Jan-1983 
44 ie : Process sections should not use fast path for PFN sections. 
0000 «77: v03-023 TMK 0001 Todd M. Katz 11-Dec-1983 
48 8 ; Fix a broken branch. 
000 80; v03-022 wMC0007 ayne Cardoza 23-Sep-1983 
O80 81 ; Changes to routines to Carel in PTEs to improve performance. 
0000 HE : v03-021 cyuspet CW Hobbs 18-Sep-1983 
4 He : Fix broken branch. 
0000 86 : v03-020 wMC0006 Wayne Cardoza 30-Aug-1983 
it fA : Disable IPL 0 wait on process section creation. 
0000 89: V03-019 ADE9005 Alan D. Eldridge 31-May-1983 
it 3 ; Change BSBW to JSB's to MMGSRETADRINI and MMG INADRINI. 
0000 32 ; v03-018 RSHOO31 Scott Hanna 26-May-1983 
4 + : Fix Linker miesenthan errors. 
0000 «(95 v03-017 wMc0005 Wayne Cardoza 24-May-1983 
44 3 : Allow mapping of execute-access global sections. 
9000 98 : V03-016 LJKO199 LAWRENCE J. KENAH 12-Apr-1983 
4 190 3 Restore FILCNT along with BYTCNT for files with shared windows. 
9 101 : V03-015 WMC0004 Wayne Cardoza 23-Mar-1983 
3 ! $ : Fix a Linker truncation error. 
000 id : v03-014 wMc0003 Wayne Cardoza 18-Mar-1983 
BOS 196 : Fix a return status in mapsecpag. 
1 : : v03-013 8 Coyne Cardoza 02-Mar-1983 
198 2 MMGSCREC S gone 
19 : CERETAORING: GSINADRINI return status 
0 11: v03-012 wMC53991 Wayne Cardoza 21-Feb-1983 
16 3 Make protection checks on global sections not mapped to file. 
6 114 : V03-011 SRB0066 Steve Beckhardt 18-Feb-1983 
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Fixed two broken branch displacments. 


v03-010 wmMc0001 Wayne Cardoza 02-Feb-1983 
Ensure that section table entry is complete before service 
touches the return address. 


V03-009 KDM0037 Kathleen D. Morse 16-Dec-1982 
Prevent shared memory and PFNMAP sections from being 
backed to page file via SECSV_PAGFIL. Optimize some code 
and add some comments. 


v03-008 KDM0036 Kathleen D. Morse 15-Dec-1982 
Re-compute the section table entry address after every 
page creation as the process header may have been expanded 
causing the section table to slide up one page. 


V03-007 KDM0038 Kathleen D. Morse 21-Dec-1982 
Change BSBW to JSB. 


V03-006 KDM0029 Kathleen D. Morse 10-Nov-1982 
Correct check for backwards mop ing of shared aonety 
lobal section. Only return SS$_IVSSRQ if the section 
$ mapped in pieces, not if it iS mapped in one contiguous 
piece cf memory. 


v03-005 LJK0189 Lawrence J. Kenah 10-Nov-1982 
ake RELPAG parameter work correctly for shared memory 


giobat sections. 
DM0002 Kathleen D. Morse 28-Jun-1982 
Added $SIODEF. 


V03-003 PHLO101 Peter H. Lippen 21-Jun-1982 
$Q10W now synchronizes the EFN and IOSB parameters 
correctly. Eliminate the synchronization code here. 


v03-004 
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V03-002 DWT0041 David Thiel 10-Jun-1982 
Correct sequence of clearing shared memory bitmap Lock 
bit and reteaging the shared memory GSD mutex so that the 
bitmap lock bit is cleared first. 
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SYSCRMPSC - Create and Map Section S$ thee Service 16-SEP-19 AX/VMS Macro V04-00 Page 
v04-000 CRMPSC = CREATE AND MAP SECTIO g- Het 1 8}: 36: 8 SYS.SRCJSYSCRMPSC.MAR; 1 . (%) 
a .SBTTL CRMPSC = CREATE AND MAP SECTION 
3: FUNCTIONAL DESCRIPTION: 
0 5: THE CREATE AND MAP SECTION SERVICE CREATES A NEW SECTION 
0 $ : OF THE SPECIFIED NAME UNLESS THAT NAME ALREADY EXISTS. IN EITHER CASE 
308 : IT THEN MAPS THE SPECIFIED SECTION. 
000 : : CALLING SEQUENCE: 
$80 1: CALLG ARGLIST,a#SYSSCRMPSC 
0090 + INPUT PARAMETERS: 
0000 5: INADR(AP) = ADDRESS OF 2 LONG WORDS THE 1ST OF WHICH SPECIFIES 
0000 36 : THE STARTING VIRTUAL ADDRESS TO CREATE, THE 2ND SPECIFIES 
0000 7: ING VIRTUAL ADDRESS TO CREATE (INCLUSIVE). 
0000 38 ; RETADR(AP) = ADDRESS OF A 2 LONGWORD ARRAY INTO WHICH IS RETURNED 
0000 9: Sih RTING AND ENDING VIRTUAL ADDRESSES (INCLUSIVE) 
0000 240: OF THE PAGES JUST CREAT 
0000 241: ACMODE(AP) = THE ACCESS MODE (MAXIMIZED WITH CALLING MODE) 
0000 2g 3 USED AS THe OWNER OF THE N 
0000 243: FLAGS(AP) = BIT - GBL = GL SBAL WF SET, PROCESS IF CLEAR 
0000 244: BIT 1 = CRF = COPY ON REFERENCE 
0000 245: BIT ‘ - DZRO = DEMAND 
0000 246: BIT - WRT = WRITABLE IF SET, READ ONLY IF CLEAR 
0000 247: BITS 4 = 5 RESERVED, MUST PERO 
0000 248 : BITS 6 & 7 = WRIMOD = WRITE ACCESS FOR SECTION 
0000 249: BITS 8 = 12 RESERVED, MUST BE ZER 
0000 250: BIT 13 - RESIDENT = RESIDENT GL CTION 
0000 251: BIT 13 IS NOT TO BE DOCUMENTED (WMC 
0000 3g : BIT 14 = PERM = PERMANENT IF SET, TEMPORARY IF CLEA 
0000 253: BIT 15 = SYSGBL - SYSTEM GLOBAL [F SET, GROUP GLOBAL IF CLEAR 
9000 54: BIT 16 - PFNMAP = MAP TO SPECIFIC PFN'S, IF SET 
0000 255: BIT 17 = EXPREG = MAP TO FIRST FREE SPACE AVAILABL 
0000 256: BIT 18 = PROTECT = SET IF WRITE ACCESS MODE SPECIFIED 
0000 257: BIT 19 = PAGFIL = USE PAGE FILE BACKING STORE FOR GLOBAL SECTI 
0000 258: BIT 30 - 5 UTE - MAP IF EXECUTE ACCESS = EXEC MODE ONLY 
0000 259: BITS 21 = 31 RESERVED, MUST BE ZERO 
0000 260: GSDNAM(AP) = THE DESCRIPTOR OF THE GLOBAL SECTION NAME 
0000 261: IDENT(AP) = ADDRESS OF QUAD WORD CONTAINING SECTION IDENTIFICATION 
0000 68 : FIRST LONG WORD CONTAINS THE MATCH CONTROL INFORMATION 
0000 263: = ISDS$K_MATALL, MATCH ALWAYS 
900 64 ; 1 = ISDSK“MATEQU, MATCH IF DENTS ARE EQ 
5: 2 = ISD$K MATLEG MATCH IF HIGH 8 BITS ARE EQUAL 
0 66 : AND LOW 24 BITS ARE LESS THAN R EQUAL TO 
0 67: THE ID STORED IN THE GLOBAL SECTION. 
0 68 ; SECOND LONG WORD CONTAINS THE IDENT TO BE COMPARED 
69 : RELPAG(AP) = RELATIVE PAGE IN SECTION TO START MAPPING 
0; CHANCAP) = CHANNEL ON WHICH FILE IS ACCESSED 
71: SECPAGCN NT(AP) = NUMBER OF PAGES (STARTING AT THE ABOVE VBN) IN THE SECTION 
0 es : NCAP) = STARTING VIRTUAL BLOCK IN FILE THAT BECOMES THE 
0 73: FIRST BLOCK OF THE GLOBAL SECTION 
74 : PFN(AP) = STARTING PFN TO BE MAPPED, IF PFNMAP FLAG SET 
75 : PROT(AP) = PROTECTION APPLIED TO SECTION 
26 : PFC(AP) = PAGE FAULT CLUSTER 
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p Section System S 
AND MAP SECTION 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
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NO INPUT RANGE ADDRESS SPECIFIED 
ERMPSC_NOINADR: 
ASSUME 


a 
C 
$ S$ SEC V_GBL EQ 0 
OF 59 «£9 41 BLBC RO, CRAPSC_ACCVIO -ONLY LEGAL FOR GLOBAL SECTIONS 
0B 59 OE E1 46 BBC #SECSV_PERM,R9,CRMPSC_ACCVIO ;WHICH ARE PERMANENT 
4 07 00 4 DECL R& s-1 INDICATES NO RANGE TO MAP 
ib 009 ai BRB 15$ SREJOIN CRMPSC CODE 
008 46 FLAG_ERROR1: 
S50 016C BF 3 4 MOVZWL #SS$_IVSECFLG,RO :SET INVALID SECTION FLAG ERROR CODE 
03 11 001 48 CRMPSC_RET ‘BRANCH TO ERROR RETURN 
01 49 CRMPSC_ACCVIO: 
50 0c 3¢ 001 50 VZWL #SS$_ACCVIO,RO ;CANNOT ACCESS THE RANGE TO MAP 
001 51 CRMPSC_RET: 
mB: cea 
00009009 34 .PSECT YSEXEPAGED :PUT ENTRY POINT INTO SEPARATE PSECT 
9000 36 peeeeeeeeee EXESCRMPSC ENTRY POINT 
OFFC 0000 358 .ENTRY EXESCRMPSC,“M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> 
00000016'EF 17 9908 39 JMP EXE_CRMPSC S TRANSFER fO REAL PROCEDURE 
00000016 61 .PSECT YFSSSYSCRMPSC sBACK TO SCRMPSC PSECT 
0016 8 EXE_CRMPSC: 
SE C2 0016 364 SUBL  $“#-MMGSC_LENGTH, SP ;RESERVE A SCRATCH AREA 
59° 10 AC DO 0019 365 MOVL FLAGS(AP) TR ‘GLOBAL SECTION FLAGS 
54 04 AC D9 001D 366 MOVL INADR(AP) -R4 SADDRESS OF RANGE TO MAP 
DD 13 0021 367 BEQL § CRMPSC_NOINADR [BRANCH IF NULL RANGE 
023 368 IFNORD #8,(R4J,CRMPSC_ACCVIO BRANCH IF RANGE NOT ACCESSIBLE 
54 64 7D 0029 369 MOVa = (R4) RG :PICK UP THE R 
00 bp 02¢ 370 15$:  PUSHL 40 ‘REMEMBER NO START RETADR YET 
7E 0619 8F 3C 00 71 MOVZWL #SS$_CREATED,-(SP) SASSUME SECTION WILL BE CREATED 
30 BB 00 2 PUSHR #*M<R4,R5> SSAVE RANGE FOR MAPPING LATER 
00000000'GF 16 03 ? JSB G“MMGSRETADRINI SINIT RETURN RANGE, AND SCRATCH AREA 
07 E9 0038 37% BLBC RO, CRMPSC_RET SRETURN THE ERROR 
50 59 b0 O55 75 MOVL R9O-R :GLOBAL SECTION FLA 
FFB ’ 04 o BSBW MMGSVFYSECFLG SVERIFY SECTION FLAGS 
59 50 dO 0044 37 MOVL RO, RO [USE VERIFIED FLAGS 
58 ps 47 28 CLRL SASSUME NO SECTION TABLE ADDRESS 
56 20 AC 49 37 MOVZWL CHANCAP) ,R6 [CHANNEL PARAMETER 
14 12 004D 0 BNEQ ~=«'17$ [BR ON MAPPED TO A FILE 
1659 13 ~+€ Oar 1 BBS #SECSV_PAGFIL,R9,20$ | :SKIP CHANNEL CHECKS IF PAGE FILE 
B4 59 «10 Fl 33 : BBC #SECSV_PFNMAP,R9,FLAG_ERROR sERR IF NOT PFNMAP AND NO CHANNEL 
18 «11 z ; BRB 2 ;SKIP CHANNEL VERIFICATION AS NO CHANNEL 
29 5 CRMPSC_FOUND: :GLOBAL SECTION EXISTS, JUST MAP TO IT 
SE 34 CO 0059 : ADDL  #<11#4>+8,SP *CLEAN OFF THE STACK 
08 AE 01 «=3¢) «(005 MOVZWL #SS$_NORMAL,8(SP) SINDICATE SECTION ALREADY EXISTS 
041A 31 i 8 BRW MAPGBLSEC1 :GO MAP THE SECTION 
AG 59 19 E 6 30 17$: BBS #SECSV_PFNMAP,RO,FLAG_ERROR] §;:BR IF PFNMAP, ERROR 
ao 59 (13—=«CO*&E 9 BBS #SECSVPAGFIL.R9.FLAG-ERROR1 :BR IF PAGFIL BACKING STORE, ERR 
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C TE 
68 39 
és 38 ; CALL TO IOCSVERIFYCHAN THAT WAS MADE HERE IS NOW BEING MADE IN CHECK_WINDOW 
OD2A 3 B 395 198:  BSBW CHECK WINDOW i INSURE THAT FILE IS COMPLETELY MAPPED 
AS 50 38 6 %6 BLBC RO, CRAPSC_RET ;BRANCH IF FILE NOT FULLY MAPPED 
54 «00 09900 F DO 97 20$:  MOVL Brg EnSGe t gunpce RG iGET PCB ADDRESS 
0 1 €1 7 98 BBC #SECSV S$ “BRANCH IF NOT CRF SECTION 
00 FC AD «(08~ «E2 6 399 BBSS S PRACSY sia B*MMGSL RAAXACMODE CFP) 258° ;MUST CHARGE PAGE FILE 
1 401 ASSUME seCsy GBL £0 
55 59 €9 1 4 ; 25$:  BLBC  R9,CRAPS Eeocess ;BRANCH IF CREATING PROCESS SECTION 
50 00000000" GF DE h 6 MOVAL GTEXESGL GSDMTX,RO SADR OF GLOBAL SECTION MUTEX 
00000000'GF 16 a 4 4 J$B G*SCHSLOCKW tLOCK GSD MUTEX FOR WRITING 
091 4 : : RETURNS WITH IPL = ASTDEL 
0091 407: RB = CHANNEL CONTROL BLOCK ADDRESS, IF PFNMAP CLEAR 
091 408 : R9 = SECTION FLAGS 
091 409; O(SP) = STARTVA 
091 410 : 4(SP) = ENDVA 
0091 ae : 8(SP) = SUCCESS CODE FOR MAP GLOBAL SECTION 
0091 “i$ ; eeeee NOTE: ALL EXITS FROM THIS POINT ON MUST UNLOCK THE GSD MUTEX. 
0091 415 : FIRST, BEFORE DOING A GSD SCAN DO A DEALLOCATE SECTION SCAN. THIS 
0091 ai | SCAN MUST BE DONE IN ORDER TO COMPLETE THE DELETION OF y TEMPORARY 
0091 ef 3; GLOBAL SECTION WHOSE REFERENCE COUNT HAS DROPPED TO ZERO 
00000000'EF 16 091 ‘1s : JSB MMGSDALCSTXSCN1 ZSCAN FOR SECTIONS TO DEALLOCATE -- 
5E ua ¢ $097 c31 : SUBL  #<11%4>+8,SP :MAKE ROOM FOR GSD NAME AND IDENT 
57 SECO 009A 4 : MOVL = SP,R7 :R7 = ADDRESS OF GSD NAME STORAGE 
009p 424 ASSUME IDENT EQ GSDNAM+4 
50 14 AC 7D 009D 425 MOVQ  GSDNAM(AP),RO ;DESCRIPTOR ADDRESS FOR GLOBAL SECTION NAME 
Al 426 ADDRESS OF IDENTIFICATION QUAD WORD 
56 559 00 Al 427 MOVL R9,R6 iSECTION F LAGS 
FF59° Og 4 g BSBW § MMGSGSDSCN [SCAN FOR THE NAME 
OA7 430 : R& = SHARED MEMORY CONTROL BLOCK ADR IF GLOBAL SECTION IS IN SHARED MTMORY 
OOA7 431 : RS RETURNED WITH SYSTEM PROCESS HEADER ADDRESS WHETHER SUCCESSFUL OR \OT 
OOA7 4 : : R10 = OIF THE GSD WAS FOUND IN LOCAL MEMORY 
OA? 433: -1 IF THE LOCAL MEMORY SEARCH EXTENDED INTO SHARED MEMORY TABLES 
OA? 4 4 : >O IF A SPECIFIC SHARED MEMORY NAME WAS SPECIFIED 
AF 50 €8 OOA7 4 : ‘ BLBS GRMPSC FOUND sBRANCH IF SECTION ALREADY EXISTS 
50 0978 er B1 OOAA 4 CMPW Ree OSUCHSEC, RO [CONTINUE WITH CREATION IF NOT FOUND 
5 12 AF 4 8 BNEQ ULKGSDRTXRET [BRANCH IF SOME OTHER ERROR 
0B! 440 : GLOBAL | SECTION NAME DOESN'T EXIST, CREATE A NEW ONE 
1 441 : ALLOCATE A GLOBAL SECTION DESCRIPTOR BLOCK 
1 Ade : O(SP) - 43(SP) : GSD NAME COUNTED STRING 
44. : G4(SP) = 51(SP) = IDENTIFICATION QUAD WORD 
er & 
68} 446 ASSUME PRVSV_SYSGBL EQ PRVSV -PRNGB +1 
0B! 44 ASSUME SECSV“SYSGBL EQ SECS$V"P 
5B 00000000'9F 00 1 448 MOVL  @&CTLSGL_PHD,R11 eRNES. THEN CHECK FOR PRIVILEGE TO DO SO 


: ro V04-00 Page 1 
orpcenn st CRMPSC © CREATE AND MAP SECTION service "PSEp= 1984 03:30:00 LersvenclerscRMesc MAR: 1 (3) 
-000 CRMPSC = sent mae Svs 
pee Se en 436 EXTZV BSECAVCPERN.AB.AD.AY GET, DESIRED PERMANENT” AND SYSTEM WIDE FLAGS 
ee : IRED 
i 85 EA bo ‘3 BICL RO,R1 i1F ANY DES REQUESTED OPERATION 
A 90Ce 4 i STHEN NO PRIV FOR 
BNEQ  CRAPSC_NOPRIV OR REQUEST 
15 it ‘ i ‘3 BBC SUE tegen LT ca AR 
Se ae : BBC —«#SECSVRESIDENT RO, 308 SECTION REG 
3353 9 El OOce 485 268. PRVSV-CMKRNL ,PHDSQ_PRIVMSK(R11),30$ ;NEE abe 
ee en 1s 2 PSR Prion we 
B22 gy CRAPSC PROCESS: :G0 MAP PROCESS SECTION 
onsr 31 00D9. 289 BRU -MAP_PROCESS_SEC 
Oot de} ; ERROR IN SECTION FLAGS AND TYPE OF SECTION REQUESTED 
Gone 468 
Ope 463 FLAG_ERROR: $_IVSECFLG,RO ;REPORT INVALID SECTION FLAGS 
sh 03 if a des 288: poytwe UCRGSDMTXRET! sRETURN ERROR STATUS TO CALLER 
O9e 169 ; NO PRIVILEGE TO CREATE OR MAP THE GLOBAL SECTION 
OES des ; PERATION 
3c 0083 270 ERwsc _ngpRty: #SS$_NOPRIV,RO NO PRIVILEGE FOR REQUESTED OPE 
— QE6 471 ULKGSDMTXRET!: 
0328 31 QE 478 Y ULKGSDATXRET peng 
BEF tog TULAPAGCNT: PAGCNT, RO ;REPORT SECTION HAS NO 
0 et GOED aes BRE ULEGSDATARET SRETURN TO CALLER x 
. NG MAP 
OFF ra sn “ROVIWL #SSS SHMGSNOTMAP ,RO snercay section 1s NOT BEI 
50 036C BFC OOF, 478 BRB -ULKGSDMTXRET1 IRSOSYSTER PROCESS. MEADER ADR 
we 2k 7 3SET COUNT OF 
: VL SECPAGCNT(AP),R NS 
sen ee a a ERROR ILLEGAL TAGE CO 
Tt a eee ere 
es 8 3193 48s BBE $a -parynéecat ZCANPSC>NOPRLY i SHMER PRIV NEEDED 
DOS? OF EO O108 ae BBS  #SECSV-CRF, en FLAG-ERROR SHARED MERORY CAN: 
ce 33 10 EO Olde ABs eos SHEEN DU MAA RO EES Ene “ERROR :SHMEM CANNOT ALSO BE PAGFIL 
ch 33 18 £0 0115 489 Bee RSECSV PERROTT AG ERROR; SHARED REMORY MUST BE PERRANE 
ce 39 oF EY Oti4 490 BEC ASECSV Pen Rs reg ‘iBLeNTe SECViow'TS 1h SHARED REMORY 
1059 os ET one 4 : BBC ASECSV-DZRO.RY FOR SH REM GS. ALL SECTION RUST 
tA 13 Ot i GNEG SHI NOT Rap RTT ont) yee 
er ak a a a OR eae 
a ey ee MCORL ROTRO. EA VALID RANGE OF ADDRESSES. 
+ Hy 3 Oise it BEQL SHA_NOT_MAP ER=SHARED MEMORY, CONTROL BLOCK ADR 
D* 30 0130 $00 328: asew AGS AL OSHMGSD SALLOCATE A SHARED REMORY 
B SO E91 ’ BBC = RO. 28 :R4=SHARED RERORY CONTROL BLOCK ADR 
BB Bie mstunnmess GUILT eR 
o 32% 5 30 be Ise 808 MOVAB GSOSTGSDRAM(RO) RO «GET ADDRESS. OF GSD 
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LOCAL_MEM.GSD: 
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Wwmo-o 


som 
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RELEAS_PAG RET: 


so 
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WwW 
So 
DIMA ODO OOOCMUIWINIOE OOM FAS DS NEM TDS NEMO OOM TH HOMO ONVUIWO 


BRB 
RELEAS_GSD_RET: 
PUSHL 


a a a ce ee ee ee ce a ce ce cd a ce a a a ed ee a ee a ed a ad od od ed ad ad ed oe ad a a od od a Dad ed a aD Daa Daa da dad 


PAA MAMA IAT BB BB BEE BEINN AAI AAAI OOOO OOOO 
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§ Macro V04-00 Page i" 
RCISYSCRMPSC.MAR; 1 (3) 

SP,R1 :POINT TO ASCIC NAME STRING TO STORE 
MOVGSDNAM SMOVE GLOBAL SECTION NAME INTO GSD 

‘1S GS MAPPED TO A FILE? 
COMMON_INIT1 ‘BR IF MAPPED TO A FILE 
NO_FILE_INIT :BR IF NOT MAPPED TO A FILE 
COMMON_INIT :SKIP EXTGSD SPECIFIC INITIALIZATION 
PFNMAP_GSD 
#SECSV_PFNMAP,R9,PFNMAP_GSD_1 ;BR IF PFNMAP AS GSD IS LARGER 
(SP) R sGET SIZE OF GLOBAL SECTION N 
#GSD$C_LENGTH,R1 ‘CALCULATE TOTAL GSD STRUCTURE SIZE 
R1 ‘SAVE GSD SIZE FOR LATER 
G“EXESALOPAGED SALLOCATE FROM PAGED POOL 
(SP)+,R1 TRESTORE GSD SIZE FOR LATER 
RO,NORMAL_GSD ‘BRANCH IF ONE AVAILABLE 
#S§$_GSDFOLL,RO ‘GLOBAL SECTION DESCRIPTOR TABLE FULL 
ULKGSOMTXRET ;UNLOCK THE MUTEX AND RETURN ERROR 
#°M<R2,R3,R4,R5> ;SAVE SOME REGS TO BE SAFE 
R ‘NAME POINTER FOR HASH 
(R2)+,R3 [NAME LENGTH 

‘HASH ACCUMULATOR 
(R2)4 RG [CALCULATE A SIMPLE HASH 
R4,GSD$B_HASH(R6) :SAVE IT 
(R1)+,R2 :GET GLOBAL SECTION NAME LENGTH 
RE. (R )+ :STORE NAME LENGTH IN GSD 
R2.(R1), (RO) SMOVE NAME STRING INTO GSD 
#°M<R2,R3,R4,R5> SRESTORE THE REGISTERS 


#SHDSV_BITMAPLCK,RO s;NUMBER OF BIT LOCK REQUESTED 
MMGSSHATXLK REQUEST MUTEX AND BIT LOCK 


; AT SOME TIME THIS SHOULD SEND A MESSAGE TO THE ERROR LOGGER. 


RO, 34$ ;UNABLE TO GET BIT LOCK 

mNGSSET BITMAP RELEASE ALL PAGES ALLOCATED FOR GS 
#SHD$V_BITMAPLCK,SHDS$B_FLAGS(R5),33$ ;RELEASE BIT LCK 
RNGSSHATXULK SRELEASE SHM MUTEX 

4 3 CODE 

[RO CONTAINS ERROR CODE 

[REMEMBER RETURN STATUS CODE 

#1,R0 [ONE REFERENCE COUNT THAT LOCKS GSD 
G“AMGSDECSHMREF 31S GIVEN BACK 

#GSD$V_LOCKED, GSDSL_GSDFL (R6) 
SHB$B_PORT(R4S,R1 GET 

SHBSL REF CNT (R4) “ONE LESS GSD OWNED BY 

#1, SHB$W_GSDQUOTA(R5S)CR1) ;GIVE SHM OT 
(SP)+,R0 STORE RETURN STATUS CODE 


sRE 
ERROR RETURN 
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- Create and Ma /VMS Macro V04-00 Page 1 
v04=000 CRMPSC = CREATE AND MAP SECTION - 00 [SYS.SRCISYSCRMPSC.MAR; 1 ~ 
1CA 563 NORMAL_GSD: 
56 52 DO O1CA 564 MOVL  R2,R6 sADDRESS OF NEW GSD 
08 A651 : 10D «= 565 MOVW  R1.GSD$W_SIZE(R6) “FILL IN SIZE OF GSD 
OA A615 101 66 MOV #DYNSC_GSD,GSD$B_TYPE(R6S ;AND TYPE CODE 
0 22 a6 9E 0105 6 MOVAB  GSD$T_GSDNAM(R6) RO ;LOAD POINTER TO ASCIC NAME FIELD IN GSD 
51 SE 00 0109 8 MOVL SP, R1 :COPY POINTER TO ASCIC NAME STRING 
o fj 1DC $ BSBB § MOVGSDNAM SMOVE GLOBAL SECTION NAME INTO GSD 
re 1DE 20 BRB COMMON_INIT :SKIP EXTGSD SPECIFIC INITIALIZATION 
50 o0cc af 3¢ 1E0 ce $6$: MOVZUL #SS$_GSDFULL,RO ;GLOBAL SECTION DESCRIPTOR TABLE FULL 
0229 31 IE is BRW ULKGSDMTXRET. ‘UNLOCK THE MUTEX AND RETURN ERROR 
GiEs 75 BENMAP _GSD: 
51 6€ 9A OIE id: MOVZBL (SP) 7GET SIZE OF GLOBAL SECTION NAME STRING 
51 1 cO O1€8 57 ADDL2 pesose. _EXTGSDLNG,R1 [CALCULATE TOTAL SIZE OF EXTENDED GSD 
1 dD Ole 78 PUSHL R1 ‘SAVE GSD SIZE FOR LATER 
00000000'GF 16 O1F 79 JSB G“EXESALOPAGED SALLOCATE FROM PAGED POOL 
51 BE DO 01F6 580 MOVL  (SP)+,R1 TRESTORE GSD SIZE 
€&4 50 €9 O1F9 581 BLBC ~— RO, 365 ‘BRANCH IF NONE AVAILABLE 
56. 52 00 O1FC 382 MOVL  R2.R6 TREMEMBER ADDRESS OF NEW EXTGSD 
08 a6) «651)=S BO SC*OTFF O58 MOVW  R1.GSD$W_SIZE(R6) sFILL IN SIZE OF EXTGSD 
OA A6. 28— 90 0203 584 MOVB #DYNSC_ERTGSD,GSD$B_TYPE(R6) ;AND TYPE CODE 
50 30 A6 9E 0207 585 MOVAB GSD$T_PFNGSDNAM(R6);RO ;POINT TO DESTINATION OF NAME STRING 
51 SE 00 0208 586 VL SP :POINT TO ASCIC NAME STRING ITSELF 
FF61 30 O20E 587 BSBW VGSDNAM :MOVE GLOBAL SECTION NAME INTO GSD 
2C A6 «6D4 «(0211 = 588 CLRL gspsL REF CNT (R6) NITIALIZE REFERENCE TO SECTION 
24 A6 28 AC 00 0214 589 MOVL (AP), ESDSL BASEPFN(RGS MILL IN STARTING PFN FOR SECTION 
28 AG «657)~=—O0s0219 Ss «590 MOVL r?. GSD D$L_PAGES(R6) :AN NUMBER OF PAGES IN SECTION 
03 12 0210 591 BNEQ O’F ILE. Mt R IF PAGE COUNT VALID 
FEC? 31 0302 39 ‘a tea BW ILC_PAG-CNT “BR IF BAD PAGE COUNT 
14 A6 2C AC BO O 33 594 =~  “MOVW PROTC(AP) GSDSw_ PROT(R6) ;AND PROTECTION FOR SECTION 
16 A6 B4 0227 595 CLRW GSDSW_ GSTX¢ [SET NO SECTION TABLE INDEX 
D4 Oech 596 CLRL R10 SREMEMBER NO SECTION TABLE ENTRY 
LRL L_FILU NDICA YPA LE PROT CHECK 
10 A6 D4 0 C 397 li Gtk GSD$L_FILUIC(R6) [0 INDICATES BYPASS FILE PROT CHEC 
50 00000000'GF D0 85 F 599 MOVL G*SCH$GL_CURPCB,RO :GET PCB ADDRESS 
Oc A6 00BC CO «DO 0236 = 600 MOVL  PCBS$L UIE (RO), GSD$L -PcBUIC(R6? >SEI UIC OF CREATOR FROM PCB 
5E eC CO 023C 601 ADDL2 acts sh SP i EAN GS NAME OFF STACK 
50 «BE 07D COO 3F 60¢ MOVG SP) + =MATCH CONTROL, RI=IDENTIFICATION DATA 
08 FC AD FO 0242 60 INSV B MAG$e MAXACMODE (FP) WskCSv AMOD,- ;SET ‘tue ACCESS 
59 02 0 46 604 ‘ EC$S_AMOD,R sMODE OF THE’ SECTION 
20 A6 «6559°)—s BO sO0248 = 605 MOVW SDS FLAGS (R6) SFILL IN SECTION FLAGS 
02 50 »b1 024¢ 606 CMPL RO. #SECSR_MATLEQ [VALID MATCH CONTROL 
1. 4% Ge 4 BGTR BADMA ATCHCTL ‘BRANCH IF NOT 
18 A6 651 «=O «0251 +608 MOVL GSD$L_IDENT(R6) [SET GLOBAL SECTION IDENT 
5059 10 €0 33 609 BBS psécaye PFNMAP,R9,BRW_70$  ;BR IF NO SECTION TABLE ENTRY 
59 611 ; ALLOCATE A GLOBAL SECTION TABLE ENTRY FOR THE NEW SECTION 
39 61g > R4 = SHARED MEMORY CONTROL BLOCK ADDRESS IF GLOBAL SECTION IS IN SHARED MEM 
9 613 : RS = SYSTEM PROCESS HEADER ADDR | 
59 «614 : R6 = GLOBAL SECTION DESCRIPTOR ADDRESS 
59 615 : R? = COUNT OF PAGES IN SECTI N 
59 616 : R&B = CHANNEL CONTROL BLOCK ADDRESS, OR | 
59 617: | = 0 IF PENMAP OR PAGFIL SECTION | 
59 18 + RO = SECTION FLAG 
59 619 ; R10 = SECTION TABLE ENTRY ADDRESS, OR | 


SYSCRMPSC - Create and Map Section System a 16-SEP-1984 715 VAX/VMS Macro v04-00 P 1 SY 
yO4-000 CRMPSC = CREATE AND MAP SECTION See 188e BE 88b3 PSRLMSS ecco uOseOd «= Page 13, vo 
9 620; = 0 IF PFNMAP SECTION 
9 621: «sp? = STARVA 
9 6 é : 4(SP) = ENDVA 
39 : 33 8(SP) = SUCCESS CODE FOR MAP GLOBAL SECTION 
29 625 MAP_TO_FILE: 
0801 30 39 6 : BSBW  =—s INI TSECTBL iA Ri hs" AND eetnsres cn TABLE 
58 50 £9 025C 628 BLBC ‘BRANCH IF NONE A VAILABLE 
20 A6 «614 AA BO O 3 6 ; MOVW pega FL oats cRtOD. GSD$W_ Fines tne) ;RECORD FLAGS IN GSD 
6 64 631: R1 = SECTION TABLE INDEX 
64 6 5 : R7_ = SECTION PAGE COUN 
0 64 633 ; R10 = SECTION TABLE BASE ADDRESS 
16 A651 BO 0264 635 ° MOVW RT gsDSu GTX «ROD :SAVE SECTION INDEX 
10 A6 D4 0268 636 CLRL  GSO$L_FICUIC(R6) TASSUME NO FILE PROTECTION CHECK 
50 OC AA D9 0268 637 MOVL Hie “HINDOWERTOD, RO  :GET WINDOW ADDRE 
51 13 O26F 638 BEQL $” ‘NO WINDOW = PAGE FILE BACKING STORE 
50 18 AO 00 0271 639 MOVL  WCBSL_FCB(RO),RO ‘CHAIN TO FCB ADDRESS 
0B 13 0275 640 BEQL 8$ “BRANCH IF NOT AN FCP WINDOW 
70 AO 2C AC AD 0277 641 BISW3 PROT CAP) , sf case _FILEPROT(RO) ,= SET POSSIBLY RESTRICTED 
14 A6 bere 64¢ GSD$W_PROT(R6)~ :FILE PRO OTECTION 
58 AO DO O27E 64 MOVL  FCBSL~ FILEOUNER(RO), RO :AND FETCH THE PILE! S OWNER 
10 A6 «50 «=O «0282 «6644 38S: MOVL RO,GSDSL_FILUIC(RO) 3SET FILE OWNER INTO GS 
0286 645 INDICATES BYPASS FILE PROT CHECK 
29 OA AB 91 0286 646 CMPB —s- GSD$B_TYPE(R6) , ADYNSC _SHAGSD 31$ GS IN SHARED MEMORY 
20 13 028A 647 39$: BEQL § SHM_GS_MAP :BR ON YES, GO READ SECTION into MEMORY 
O28¢ 649 : GET GLOBAL PAGE TABLE ENTRIES 
51 57 O83 ¢1 O28C 651 $91$: ADDL? #3,R7,R1 ;PAGCNT + 2 FOR STOPPER ENTRIES 
51 01—SOCA 0290 63 BICL. #1.R1 :ROUND UP TO EVEN NO. OF LONG WORDS 
51 04 «C4 029 65 MULL #4,R1 SDESIRED NO. OF BYTES OF GPTE 
53 00000000'GF DE 0 96 654 MOVAL GER ES$GL_GPT,R3 [GPT ALLOCATION LIST HEAD 
00000000'GF 16 90 655 JSB C*EXESALCOCATE :GET SOME GPT 
40 50 ES 0203 656 BLBS  RO,40$ ‘BRANCH IF GOT SOME 
013031 0 Ab 637 BRW OP trULL [GLOBAL PAGE TABLE FULL 
02A9 659 BRW_70S: 
OOA2 31 0249 660 BRW 70$ :BRANCH ASSIST 
Oeac 661 SHM_GS_MAP: 
18 AA D4 O2AC 66¢ CLRL = SEC$L REF CNT (R10) :DON'T USE SEC TBL REFENT FOR SH MEM GS 
0200 31 AE 663 BRW MAPGBL :GO MAP THE SECTION 
B2 665 ; 
@ 666 BAD MATCH CONTROL FIELD FOR SECTION 
BD 668 BADMATCHCTL: ;BAD MATCH CONTROL FIELD 
56 0264 BF 3 8 669 SSTEULLI OMe #SS$_IVSECIDCTL,RO : INVALID SECTION IDENT CONTROL 
28 OA A6 91 O02B7 671 f GSDSB TYPE(R6) ,ADYNSC_EXTGSD ;1S THIS AN EXTENDED GSD? 
¢6 18 02BB 676 BLEQU BRGSTFULL :BR If LOCAL MEMORY OR EXTENDED GSD 
0 pp BD 67 PUSHL RO [SAVE ERROR STATUS CODE 
FED? = 31 BF 674 BRW RELEAS_PAG_RET :BR IF SHARED MEMORY GSD 
kg 676 : CHECK FOR PAGE FILE LIMIT EXCEEDED AND FILL IN PROTECTION 


D 
SYSCRMPSC - Create and Map Section System seevlee 16-SEP-1984 AX/VMS Macro V04-00 Page 14 
v04-000 |. CRMPSC = CREATE AND. MAP SECTION g-$e Pa 198C 8}: 38:00 SYS. SRCISYSCRMPSC. MAR; 1 ve 
¢ 77 ; 
1446 2C AC B 3 78 $92$: MOVW PROT(AP),GSD$W_PROT(R6) PROTECTION REQUESTED FOR THE GLOBAL SECTION 
00000000’ EF ¢ ‘te ‘ Cf i UBL SECSL_PAGCNT (RTO) .M WeseL - 68 LPAGFIL 
50. 00000000' C D1 ? ADDL3 SECS$L_PAGCNT(R10) .MMGSGL_GBLPAGFIL,RO 
% 0 ho2te4 ar bp DA : PUSHL #SS$_EXGBLPAGFIL 
OOoFc 31 i 683 BRW FRESTXERR :THIS WILL ALSO FIX UP THE LIMIT 
O11E 31 —3 685 BRGSTFULL: BRW GSTFULL 
fe ORS 
£6 6 g : ; INITIALIZE GLOBAL PAGE TABLE ENTRIES 
E6 690 ; Ro = = ADDRESS OF FIRST GPTE ALLOCATED, FRONT STOPPER GPTE 
E6691 ; DESIRED SECTION PAGE COUNT 
6 69¢ + R10 = SECTION TABLE ENTRY ADDRESS 
D4 ES 694 40s: CLRL = (R2) + ;SET FRONT STOPPER FOR GLOBAL SECTION 
53 09 E8 695 MOVL R2,R3 ‘FIRST GPTE ADDRESS 
S52 Q0000000°EF ¢ EB 69 SUBL § MMGSGL_GPTBASE,R2 :BYTE OFFSET FROM BEGINNING OF GPT 
4 C6 O2F2 69 DIVL #4, [LONG WORD OFFSET = GPTX 
L »SECSL_VPX :PUT GPTX IN ALREADY PRESEN 
08 AA 52 €¢ 0 F3 698 BIS R2,SECS$L_VPXPFC(R10) PUT GPTX IN (PFC ALRE ESENT) 
O2F9 700 : R3 = ADDRESS OF FIRST GLOBAL PTE TO FILL IN 
O2F9 701 : RS = PROCESS HEADER ADDRESS FOR SYSTEM 
0 F 108 : R? = SECTION PAGE COUNT 
52 01000000 8F DO O2F9 704 MOVL #2@PTESV_OWN,R2 :GLOBAL DZRO FORMAT FOR PAGE FILE BACKING ST 
1859 13 €0 0300 705 BBS WSECSV_PAGFIL,R9,45$ | :PAGE FILE BACKING STOR 
0304 206 ASSUME SECEV_BZRO EQ SECSV_CRF+1 ;REQUIRE BITS TO BE ADJACENT 
0304 70 ASSUME SECS$V"WRT EQ SEC$V_67ZRO+1 
52 14 AA 03 01 EF 0304 708 XTZV  ASECSO_CRE #3 ,SECSO FLAGS(R10) .R2_:CRF, DZRO, AND WRT BITS 
52. 0540 8F AB O30A 709 #<PTESA TYP1 ! PTESM_TYPO != ;SECTION TYP 
OF 710 <2aPTES$? OWN>>9-16,R2 70W INER F FIELD UseD FOR GLOBAL BITS 
OF 711 ASSUME GSD$W_GSTX GE 
5114 AG 00 OF ar MOVL GSD$u “GSTX=2(R6),R1 sHIGH 16 BITS OF R1 : see TBL INDEX 
51 51 19 9 13 71 ASHQ 6,RT, PAGE TABLE ENT 
0414 AA O03 €1 1 714 BBC asetey’ “WRT, +SECSHE FLAGS(RIO) 508, BRANCH IF NOY WRITABLE 
0052 17 «€2 O31C re 458: BBSS  #PTESV"OWN.R :SET GBLWRT BIT IN OWNER FIELD 
717; 
218 t R7 = COUNT OF GLOBAL PAGE TABLE ENTRIES. To LOCK AND FILL IN 
719 : Re = PAGE TABLE ENTRY TO STORE IN NEW GPTE'S 
g 9 : R3 = ADDRESS OF FIRST GLOBAL PAGE WABLE ENTRY 
0088 8B 7 : PUSHR #*M<R 
6 : 4 723 60%:  #MOVB  #IPL$ seinen. (R3) :SET UP TO REFERENCE PAGE AND 
O305'CF 63 ODA ? , 4 MTIPR (R3),Q*PRIP Hin T JIN CODE AND RAISE TO SYNCH 
09900000" F 16 7 a JSB G*MMGSINCPTREF LOCK THE GLOBAL PAGE TABLE 
02 D Fi 7 BBC #SECSV_RESIDENT,R9.65$ ‘NOT RESIDENT 
9 10 7 8 BSBB $ {CALCULATE A NEW R2 AMONG OTHER THINGS 
729 658: SETIPL #IPL$_ASTDEL ‘BACK TO PAGE FAULTABLE STATE 
83 53 09 f 9 MOVL » (R3)+ OO ORE af GPT ENTRY 
£3 F ( SOBGTR R?.60 [LOOP THROUGH SPECIFIED NO. OF PTE'S 
65 D4 0341 7 ‘ CLRL R ZERO STOPPER AT END OF GLOBAL SECTION 
0088 8F BA 0343 7 POPR #*A<R3,R7> SRESTORE THE INITIAL SVAGPT AND COUNT 


SYSCRMPSC - Create and Map Section System SSevlee 16-SEP-1 AX/VMS Macro V04-00 Page 15 
v04=000 CRNPSC = CREATE AND MAP SECTIO g-e EP= ~}38% 8}: 36: 8 YeYS. SRCJSYSCRMPSC.MAR; 1 * 
03 59 OD § 47 ? 4 BBC #SECSV RESIDENT R9, ,70$ ;NOT RESIDENT | 
0864 0 0348 5 BSBW READ_RESIDEN S INITIALIZE THE CONTENTS 
50 59 1 F FF af 7 : 70$: EXTZV - #SECSV_SYSGBL,#1,R9,RO :SYSTEM OR GROUP GLOBAL BIT | 
50 00000000'GF40 = 7E ; f MOVAQ  G*EXESGL_GSDGRPFLCROJ,RO ;ADDRESS OF APPROPRIATE LIST 
8 : 
B ti : QUEUE THE NEW GSD ON THE FRONT OF THE APPROPRIATE List. PLACING IT ON THE 
B 741 ; FRONT ALLOWS FOR THE INSTALLATION OF A NEW COPY OF SAY A FORTRAN OTS with 
B 742 ; AN IDENT THAT IS GREATER THAN THE OLD BUT UBUARD” COMPATIBLE. THE NEW ONE 
5B «7468 : IS FOUND FIRST IF THE MATCH IS MATLEQ. THE OLD ONE IS STILL AVAILABLE FOR 
fa + MATCH EQUAL. 
60 66 OF B 74g INSQUE (R6), (RO) :PLACE GSD ON THE SYSTEM OR GROUP GLOBAL LIS 
015131 : 3 i Bhw MAPGBLSEC2 :GO MAP THE SECTION 
61 749 ; 
6 61 750 : SET UP ONE PAGE OF A RESIDENT GLOBAL SECTION 
61 £31 : ALLOCATE A PFN AND SET UP PEN DATA BASE 
0 } £36 3; CALCULATE THE NEW PTE CONTENTS 
7E 52 7d 0361 754 1008: mova  R2,-(SP) 
QOO00000'EF 16 0364 755 JSB MMGSALLOCPFN :GET A PHYSICAL PAGE 
52 ; 7D 0 ra 136 MOVQ = (SP)+,R2 
a ig? yt PSE 
52. 15 99 50 «FO 1 759 INSV #PTESV_PFN.APTESS PFNCR TADD P "0 P TE 
52. 04400000 8 CA 0376 760 BICL pPtes $M_TYPO'PTESM TYP1,R2 ; CLEAR THe SECTION INDICATOR 
1fF €2 O37D 761 BBSS SPTESV-VALID.R airy :SET THE VALID BIT TO INDICATE RESIDENT 
00000000' FF4O 07 90 1 16g 110$:  MOVB #PFNBCCACT IVE, err NSAB_ STATE (ROD 
00000000'FF40 0¢ 90 9 7% MOVB §§ #PFNSC~GLOBAL, @PFNSAB_TYPELRO] 
B0090000'F ZO. Of «BO OO899 Fes WO «SA SprasaumRer enti Ro 
00000000'FF40 16 A6 3 Al 766 MOVZWL GSO$W ee be aPFNSAL 8 KER 0 
00000000'FF40 00400000 &F cs sae rs B1SL #PTESA_TYPO, SPF ASAL _BARCROJ ; INDICATE SECTION BACKING STORE 
7 
54  00000000'EF 00 7 16 120$: MOVL  SCHSGL_CURPCB,R4 
50 O0000000'EF  7€ ( 771 MOVAQ SCHS$GQ"FPGWO,RO ;WE WILL BE ON FREE PAGE WAIT QUEUE 
00000000 "EF 16 03C Ae: MNGSPGFLTUALT [PUT PROCESS ON THE Q 
E oc 03¢B 77 MOVPSL -(SP SCONSTRUCT PC-PSL TO RETURN HERE 
00000000" EF 16 O3CD 77% MMGSSVPCTX :WE GET BACK BY REI 
ae p 173 BRB 100$ [GO TRY AGAIN 
D 5n8 PRIPL: ;THE PROCESSOR REGISTER NUMBER IS 
00000012 030 178 .LONG PRS_IPL [PLACED IN THIS LOCATION, INSTEAD OF 
D9 «77 iBE NG REFERENCED SYMBOLICALLY ABOVE, 
D9 «= 780 19 T IN THE CODE THAT IS TO BE 
D9 «= 781 EXEC UieD AT RAISED IPL. 
8 , : ASSUME <.-60$> LE 512 SPREVENT INTERVENING PAGE 
D 784 ; 
D9 785 : GLOBAL PAGE TABLE FULL 
09 «7 $ : RO = SYSTEM STATUS CODE 
D9 787 : RS = SYSTEM PROCESS HEADER ADDRESS 
019 «7 § + R10 = SECTION TABLE ENTRY ADDRESS 
09 «7 
D9 «6790: GPTFULL 
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00 36 AS £6 
00000000 "EF 6 
50 E—E 00 
50 =D 
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Map Sect i thee * at Bey? P=19 1:52: AX/VMS Macro V04-00 Page 1 
ater ans MAP seCTiO "Bree 18be bb:e:00 LenS ee TeCee Roe ean. 1 ve tg 
PUSHL #SS$_GPTFULL ;GLOBAL PAGE TABLE FULL 
FRESTXERR: 
7 cok § $L_WINDOW(R10) 
f 5 ADDL SECSL_PAGCNT(R10) ,MMGSGL_GBLPAGFIL ;PAGE FILE BACKING STORE = ADJUST 
38 79$: CLRL L“GSD(R10 SD WILL BE DELETED ory 
79 ASSUME SEC £ PAGCNT EQ FCSt sera aFTELbs MUST BE ADJAC 
£8 CLRQ SEC f REFCNT(R10) CATORS FOR DELGBL ce 
9 BBCC #SECSO_PERM, SECS$W ELAGS (R10 ae LET SECTION BE DELETED 
BY gps: BBSSI #PHDSV DALCSTX, PHDS $W_FLAG of best DELETION FLA 
$: JSB PnSTOn ESTASCN SECTIONS TO DEALLOCATE 
8 MOVL (SP)+,R eee N FOR CODE 
04; . OBAL SECTION TABLE FULL 
82 3 = SYSTEM STATUS CODE 
3 Basi 
08 PUSHL ;REMEMBER ERROR coe TO RETURN 
sh MOVL R6,R0 SET ADR OF BLOCK TO BE DEALLOCATED 
10 JSB GE XE SDEAPAGED RELEASE GLOBAL SECTION DESCRIPTOR 
ae BRB ULKGSDMTXRET 60 UNLOCK GSD MUTEX 
HE 3; UNLOCK THE GLOBAL SECTION MUTEX AND RETURN WITH STATUS CODE IN RO 
15 ULKGSDMTXRET: 
16 U HL RO ;SAVE STATUS CODE 
17 ULKGSDMTXRET2: 
818 BSBW MMGSGSDMTXULK Heya THE GSD MUTEX 
Hh ;RETURNS R4=PCB ADR FOR MMGSDELGBLWCB 
0 BSBW MMGSDELGBLWCB Pelee ANY GLOBAL WINDOW CONTROL BLOCKS 
821 POPL REST ORE ERROR STAUS CODE TO RETURN 
: § SETIPL B*MMGSL_CALLEDIPL (FP) sRESTORE CALLER'S IPL 
MAPSEC_RET: 
824 RET 
825 
826 -DSABL LSB 
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SYSCRMPSC - Create ang Map Section System stevlae 16-SEP-1984 AX/VMS Macro V04-00 P 17 SY 
0-000 MGBLSC = MAP GLOBAL SECTION gree ieee Bbiegiks FNC Fecceamocc°O..., Page 17, we 

4 go = .SBTTL MGBLSC = MAP GLOBAL SECTION 

4 0; : FUNCTIONAL DESCRIPTION: 

4o1 8 THE MAP GLOBAL SECTION SYSTEM SERVICE MAPS A SPECIFIED GLOBAL 

4 i 5 g : SECTION INTO A SPECIFIED RANGE OF VIRTUAL ADDRESS SPACE. 

4 R35 CALLING SEQUENCE: 

é 5 $ CALLG ARGLIST,@#SYSSMGBLSC 

‘ 9 : INPUT PARAMETERS: 

451 B41: INADR(AP) = ADDRESS OF 2 LONG WORDS THE 1ST OF WHICH SPECIFIES 

04 1 BAe : THE STARTING VIRTUAL ADDRESS TO CREATE, THE 2ND SPECIFIES 

421 843: THE ENDING VIRTUAL ADDRESS TO AGREATE (INCLUSIVE). 

0421 844: RETADR(AP) = ADDRESS OF A 2 LONGWORD Y INTO WHICH IS RETURNED 

421 B45: THE STARTING AND ENDING VIRTUAL RADORESSES (INCLUSIVE) 

421 B46 : OF THE PAGES JUST CREATED 

4o1 B47 | ACMODE(AP) = THE ACCESS MODE (MAXIMIZED WITH CALLING MODE) 

421 848 : USED AS THE OWNER OF THE NEW w PA 

421 B49 : FLAGS(AP) = BIT - GBL = GLOBAL IF SET, PROCESS IF CLEAR 

421 850 ; BIT - CRF = COPY bes REFERENCE 

04 1 851: BIT é - DZRO = DEMAND ZERO 

421 g3¢ 3 : BIT - WRT = WRITABLE IF SET, READ ONLY IF CLEAR 

0421 853; BITS 4 - 5. RESERVED, MUST BE ZERO 

0421 854 ; BITS 6 & 7'= WRTIMOD - WRITE ACCESS FOR SECTION 
04 1 855 ; BITS 8 = 13 RESERVED, MUST BE ZERO 

421 836 ; BIT 14 = PERM - PERMANENT IF SET, TEMPORARY IF CLEAR 
0401 857 ; BIT 15 = SYSGBL = SYSTEM GLOBAL fF SET GROUP GLOBAL IF CLEAR 
0421 858: BIT 16 - PFNMAP = MAP TO SPECIFIC PFN'S, IF SET 

421 859 ; BIT 17 = EXPREG = MAP TO FIRST FREE SPA Ace AVAILABLE 

421 860: BIT 18 - PROTECT = SET IF WRITE ACCESS MODE SPECIFIED 

421 861: BITS 19 = 31 RESERVED, MUST BE ZERO 

421 Bb ¢ : GSDNAM(AP) = THE DESCRIPTOR OF THE &LOBA AL SECTION NAME 

421 863: IDENT(AP) = ADDRESS OF QUAD WORD CONTAINING SECTION IDENTIFICATION 

421 864 ; FIRST LONG WORD CONTAINS THE MATCH CONTROL INFORMATION 
0421 865: 0 = ISDSK_MATALL, MATCH ALWAYS 

421 866: 1 = ISDSK“MATEGU, MATCH IF DENTS ARE EQUAL 

421 867: 2 = ISD$K~MATLEQ, MATCH IF HIGH 8 BITS ARE EQUAL 

421 868: AND LOW 24 BITS ARE LESS THAN OR EQUAL TO 

421 869: THE ID STORED IN THE GLOBAL SECTION. 

421 870: SECOND LONG WORD CONTAINS THE IDENT TO BE COMPARED 

4 14 ; RELPAG(AP) = RELATIVE PAGE IN SECTION TO START MAPPING 

431 73 : IMPLICIT INPUTS: 

4 a9 : NONE 

4gt 7 OUTPUT PARAMETERS: 

4 87 NONE 

4 ? IMPLICIT OUTPUTS: | 
421 § § NONE 
421 884: | 
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COMPLETION CODES: 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
S 
$ 
$ 
$ 
SIDE EFFECTS: 


a 
a 
Pere rere resererarerererstererereterese 
NOP. DOOM CUM TN OP- DOO— CUM 


DCO DOA AAAS OOOO 
€0.00.00.00.00.00 60.60 60.60 G0. GD.G0 G0 60 Os Os O- O 


, eh ah seh seh eh ee me el ee ce ee ee ed ll 
NINO IOI OIOIOIO SOI OIOIOIOSOIOIOIOS 
>> > & && >>> > & >>> s&s & & 4 
BLY OOOOOOCOCOCOCOOCOCOOOOCooOOo 


B Section $ 
= MAP GLOBAL SECTIO 


te and Ma 


SYSCRMPSC 
-000 


V 


SYSCRMPSC 
v04-000 


00000422'EF 
, TR 
00000000 ' GF 


50 10, AC, 


5950 

54 00000000'GF 
50 00000000' GF 
00000000 ' GF 
00000000 ' EF 


5 
50 «14 AC 


oll 


50 00000978 er 


- Cre 
MGBLS 


0000 


a 


So 
So 
i=] 
oS 


SOmoosSoOEoOO —-O 
Aaomoo coono or 


BQN MIPIM IPIPIMINIMINIMININY 


OOOOCOCOOOCOCOCOOSOOOOOOOOOOOOCOOOSO “a 


PRRRR RRP RRR RRP RRR RPE POQOOQOCOCOCOCOR SRR FRR RRR EE 


PPA 


Mm C COCOCO COMI WITT WD C8 EMM WW UNPOPINIMVIO  F& COCO COCO COPIPININY 2 9 2 


PRRWNSSOSZ 
ane 


ang g Bop Section Syston sievies Tersebn1 386 04:38:13 enives Gecce v04-00 Page ! 


ECTIO “SEP=1 YS.SRCJSYSCRMPSC MAR; 1 


PPPS E SSPE LIST ITTT TTT TTT TTT TTT rrr ri iri titi ri iii iiiiie 
eeeeeeenereerere THE FOLLOWING CODE MAY BE PAGED eeeeneeeeeearenes 
~PSECT YFSSSYSCRMPSC 
INADRERR: 
RET 


Sete Ge Ge Ge 


ARBAB ARAAASALAAALALALALELAL ESLER EE ESSE AEE EERE EERE ERR EERE EEE EES 


peeeeeeeeeeere EXESMGBLSC ENTRY POINT 
R6,R7,R8B,RI,R10,R11> 


-PSECT YSEXEPAGED PUT ENTRY POINT INTO SEPARATE PSECT 


1 
; 

18 
914 
19 
HH 
319 
354 
9 : .ENTRY EXESMGBLSC,“M<R2,R3,R4,R5 
: ; JMP EXE_MGBLSC 7 TRANSFER TO REAL PROCEDURE 
3 & .PSECT YFSSSYSCRMPSC sBACK TO $CRMPSC PSECT 
9 3 EXE_MGBLSC: 
928 SUBL  $*#=MMG%C_LENGTH, SP sRESERVE A SCRATCH STORAGE AREA 
929 JSB G“MMGS$INADRINI :GET INPUT RANGE T 
930 SINIT RETURN RANGE AND SCRATCH AREA 
931 RO, INADRERR 
9 é PUSHL #0- ;REMEMBER NO START RETADR YET 
9 PUSHL ass NORMAL SSAVE SUCCESS RETURN CODE 
934 PUSHR M<R4,R [PUSH ENDVA, STARTVA 
935 MOVL FLA Nest kes SSECTION FLAGS 
9 : BSBW FLAGSCABD RO. [VERIFY SECTION FLAGS 
9 MOVL R SUSE VERIFIED SECTION FLAGS 
9 8 MOVL  G*SCHSGL_CURPCB,R4 [PROCESS CONTROL BLOCK ADDRESS 
9 MOVAL G-EXESCL GSDMTX.RO [GLOBAL SECTION MUTEX 
940 JSB LOCKW [LOCK GSD FOR WRITING 
361 JSB MMGSDALCSTXSCN1 [SCAN FOR SECTIONS TO DELETE 
ge | + RETURNS AT ASTDEL 
945 ° SUBL  #<11#4>+8,SP :RESERVE SPACE FOR GSD NAME AND IDENT 
46 MOVL = SP,R7 SADDRESS OF SCRATCH SPACE 
348 ASSUME IDENT EQ GSDNAM+4 

4 MOV  GSDNAMC(AP) ,RO :DESCRIBTOR ADDRESS FOR GLOBAL SECTION NAME 
9 : TADDRESS OF IDENTIFICATION QUAD WORD 
9 MOVL  R9,R6 oEeTiON FLAGS 
3 : BSBW MMGSGSDSCN :SCAN GSD'S FOR THIS NAME 

BLBS sé :BRANCH IF SECTION FOUND 
4 CMPL #S5$_NOSUCHSEC,RO SWAS THE ERROR DUE TO SECTION NOT FOUND? 
f BNEG §ULKGSDMTXRET [IF NO, RETURN ERROR CODE TO CALLER 
$ : 0( SP) = ASCIC GLOBAL SECTION NAME STRING 
38 : 44(SP) = IDENT INFORMATION 
: 2 (SP) = STARTVA 
$0 : 56(SP) = ENDVA 
; 60(SP) = SUCCESS CODE (SS$_NORMAL OR SS$_EXISTED) TO BE RETURNED IF 


J 
SYSCRMPSC = Create and Map Section System i nda 16-SEP-1984 AX/VMS Macro V04-00 Page S' 
04-000 MGBLSC = MAP GLOBAL SECTION Breer ibe Bbiebiba FARCE Bacco, VOGrO0 as ee 4, vl 
é F MAPPING IS SUCCESSFUL. 
; Rs = SHARED MEMORY CONTROL BLOCK ADDRESS IF GLOBAL SECTION IS IN SH MEM 
4: RS = SYSTEM PROCESS HEADER ADDRESS 
5: Rs = GLOBAL SECTION DESCRIPTOR BLOCK ADDRESS 
$ : R9_= SECTION FLAGS 
: R10 1S IF THE GSD WAS FOUND IN LOCAL MEMORY 
§ ; -1 IF THE LOCAL MEMORY SEARCH EXTENDED INTO SHARED MEMORY TABLES 
% ; >0 IF A SPECIFIC SHARED MEMORY NAME WAS SPECIFIED 
71; 
fe : IF THE GLOBAL SECTION WAS NOT FOUND, PERHAPS IT IS BECAUSE THE SECTION IS 
73; COPY AND REFERENCE AND THERE WAS A LOGICAL NAME WHICH STATED IT WAS IN 
74 : SHARED MEMORY. SINCE CRF SECTIONS ARE PLACED IN LOCAL MEMORY INSTEAD OF 
75 ; SHARED MEMORY, USE THE RESULTANT GLOBAL SECTION NAME AND SEARCH FOR THAT 
id: : IN LOCAL MEMORY. THIS IS DONE BY FORCING NO LOGICAL TRANSLATION OF THE 
37 : GLOBAL SECTION NAME (PREFIXING IT WITH AN UNDERSCORED. 
FB89' 30 338 BSBW WNGSF INDGSNOTRN ZFIND GSD WITH NO LOGICAL TRANSLATION 
cs. 6% COE 980 5$: ADDL2 SRECLAIM THE SCRATCH AR 
94 50 €9 3 1 LBC RO, ULKGSDMTXRET ‘BRANCH IF SECTION NOT FOUND 
$88 MAPGBLSEC1: 
29 OA AG 91 984 CMPB SD$B_TYPE(R6) ,ADYNSC_SHMGSD ;1S GS IN SHARED MEMORY? 
OF 1 989 BEQL :BR ON YES, CAN'T ALWAYS ACCESS SEC TBL 
SA 16 A C8 9 6 CVTWL  GSDSW_GSTX(R6),R10 :1S GS MAPPED T waits 
09 9 BEQL $ ON NOT BAPPEDS TO A FILE | 
50 55 20A5 (C7 988 ADDL3 PHOS PSTBASOFF(RS) JRS,RO :BASE ADDRESS OF SECTION T 
SA 604A_—Ss=OE: 989 MOVAL ADDRESS OF SECTION TABLE ENTRY 
50 20a6 IE 9 990 7$: ROTL #31-SECSV_CRF,GSDSW_ FLAGS(R6) RO :GET FLAGS FROM GSD 
05 18 991 BGEQ 108 “BRANCH If NOT COPY ON REFERENCE 
OO FC AD «(08 SCO 99¢ BBSS § S*#MMGSV_CHGPAGFIL, B*nnc$i MAXACMODE (FP) , 10S 
99 HARGE PAGES AGAINST PAGE FILE QUOTA 
06 EF 994 10$ EXTZV #<SECSV_AMOD-<SECSV_ CRE+1>> = :GET Of tess MODE OF SECTION 
50 50 995 #SECS$S_KMOD,RO,R 
50° FC AD 91 99 CMPB = B*MMGSC_MAXACMODE(FP),RO ;SEE IF THIS CALLER CAN MAP THE SECTION 
42. 14 99 BGTR  MGBLSC_NOPRIV CANNOT MAP THE SECTION 
15 OA ag 91 99 CMPB  —s- GSD$B_ TYPE (R6) , ADYNSC _6sb ; MAT TYPE OF GSD IS THIS? 
03 12 99 BNEQU MAPG 7BR IF NOT LOCAL MEMORY TYPE 
18 AA 06 1000 INCL SECS$L_REFCNT(R10) ‘BIAS THE SECTION REFERENCE COUNT 
01 :SO THAT IT CAN'T BE DELETED 
1 § : RS = SYSTEM PROCESS HEADER ADDRESS 
1004 : R9_ = SECTION FLAGS 
5 : R10 = SECTION TABLE ENTRY ADDRESS 
1 $ ASSUME DYNSC_EXTGSD GT DYNSC_GSD 
1 ASSUME DYNSC"EXTGSD LT DYNSC~SHMGSD 
1009 MAPGBLSEC 
28 «OA ag 91 1 CMPB GSDSB TYPE(R6) ,MDYNSC_EXTGSD ;1S THIS EXTENDED Gsp2 
0 Ne 101 BNEQU R IF LOCAL MEMORY OR SHARED MEMORY 
2c Ab OD 1 1¢ INCL OSDSe ~REFCNT(R6) YES BIAS GSD REFCNT SO IT CAN'T 
101 — SELETED BUT MUTEX CAN BE UNLOCKED 
1014 MAPGBLSEC3: 
1015 -ENABL LSB 
54 p 1 1 PUSHL R4 :SAVE SHB ADDRESS 
FB40' 101 BSBW  MMGSGSDMTXULK [UNLOCK THE GLOBAL SECTION MUTEX 
54 BED 1018 POPL RG TRESTORE SHB ADDRESS 


K 
ss pSCtt' AM Meeeneeagntes rel SEH SIS NOME MH 
65 3 3 e BBC” Ieécsv _EXPREG,R9, mapcaiskee. Pah IF RANGE 18 EXPLICITLY. STATED 
FIND THE FIRST AVAILABLE VIRTUAL ADDRESS AND COMPUTE THE RANGE TO BE MAPPED. 
28 0A Ag ; CHEB §SDSB_TYPE(R6) ,#DYNSC =EXTGSD ;NHAT TYPE OF GSD 1S THIS? 


BLSSU IF LOCAL MEMOR 
BE 6S 


: OUNT OF Ane IN SHMGSD 
DSC_PFNBASMAX ,R7 3MA WED 


a Ma 
C GL 
4c3 1 
4C6 1 
4CA 1 
4CA 1 4 
4CA 1 
3} beer t0Se 4 
13 0400 1 40$ ENDED 
b4 8 1 § C RI IALIZE C 
57. 04 9A 0404 1 8 #GS X NUMBER OF BASES ALLOW 
58 54 AG 3 407 1 M GSDSL “BASPFNI(R65,R8 ADR OF FIRST GSD BASE tEFN 
D5 04DB 1 p 10$: TS (RB)¢ ‘1S THIS BASE U 
51 C0 40D 1 ADD (RB)+,R1 [ADD THESE PAGES INTO SIZE OF SECTION 
F8 F5 04E0 1 2 20$ SOBGTR R7,10$ SREPEAT FOR NEXT 
0D 11 O4E3 1 BRB 50$ :JOIN COMMON COD 
51 1C AA DO O4E5 1034 308 MOVL SECSL PAGCNT(R10),R1 ‘SIZE OF LOCAL MEMORY GLOBAL SECTION 
07. «11 aie 5 BRB $ ‘JOIN COMMON 
4EB 19 5 MGBLSC_NOPRIV: 
FBFS = 31 O4EB 8 BRW CRMPSC_NOPRIV :NO PRIV TO MAP GLOBAL SECTION 
51 28 a6 D0 Oe 1920 40$: MOVL GSDSL PAGES(R6), R1 SIZE yo EXTENDED gs? SECTION 
50 1C AC DO O4F2 1041 50$:  MOVL RELPAG( AP) ,RO [GET # OF PAGES NOT TO BE MAPPED 
eA 19 Our 1 4g BLSS 55$ ‘BR IF ILLEGAL NURBE OF PAGES 
51 50 D1 O4FB 104 CMPL R0 R1 ARE MORE PAGES SKIPPED THAN IN SECTION? 
¢3 18 O4FB 1044 BGEQ 4 55§ ‘BR IF ILLEGAL S 
51 50 ‘ 4FD 1045 SUBL RO, R1 [GET # OF PAGES IN SECTION TO MAP 
51 51 09 500 1048 ASHL #9.R1,R1 [CONVERT PAGE C 
31 D7 0504 104 DECL SBYTES BETWEEN START VA AND END V 
50 00000000°9F 00 306 1048 MOVL @#CTLSGL PHD, RO 'GET PROCESS HEADER FOR PROCESS 
0C BA 050d 1049 POPR #*M<R2 ‘FIND REGION TO MAP SECTION INTO 
: 1252 1& €1 OS50F 1050 BBC #VASV_P1, a2. 60$ 7BR IF MAPPING INTO P 
53. 30 Ad 900001 FF er C1 0513 1051 ADDL3 #*X1FF,PHDSL_FREP1VA(RO).R3 ;ENDING VA I 
5 31 C3 a1 1058 SuBL RI R3.R2 iSTARTING VA IN Pt SPAC 
QOoEE 31 05 : 1054 55$:  BRW ILL_RELPAG ‘BR TO RETURN ERROR CODE 
52 28 AO DO 0525 1055 60$:  MOVL. PHOSL_FREPOVA(RO),R2 i STARTING V A INP as ACE 
53 52. 51 C1 0529 1 36 ADDL3 Ri, NDING V tN N PO SPACE 
0c 6B 3 : 1 70S: PUSHR #°M<RERS> ‘REMEMBER VA RANGE Pro BE MAPPED 
52F 1059; 
3 F i 60 : BUILD A PAGE TABLE ENTRY TO PUT IN THE PROCESS PAGE TABLE 
3 F 6¢ MAPGBLSEC4: 
F 1 -ENABLE LSB 
28 OA AG 91 3 F 1064 CMPB SD$B_TYPE(R6) ,ADYNSC_EXTGSD ;1S THIS A MAP BY 
— iF 1 $3 BLSSU  6$ :NO, BR TO CREATE LOCAL PRen GPTX PTE 
D 13 1 6 BEQL . YES, BR TO CREATE VALID WINDOW PTE 
7 04 OA 106 MOV7SL #GSD$C_PFNBASMAX,R [GET # OF BASES ALLOWED 
SA 5406 OE A mpi OVA GSDSL CBASPENI CROs fo :GET ADR OF FIRST PFN BASE 
58 A OD F 1 p ~ “MOVE (Rt +R Rg sGET PFN BASE FOR FIRST PIECE OF SECTION 
D 41 107 MOVL [GET SIZE OF FIRST PIECE OF SECTION 
3 44 107 BNEQ :BR IF MORE SECTION TO MAP 
ge 46 107 BRW :BR IF ALL SECTION MAPPED 
58 (10 Ad C9 49 1074 3$: ADDL2 ea ERSCSPEN(RG) RE [ADD IN BASE PFN FOR GS PAGES 
0058 Wie 4D 1075 BBCS #PTESV_VALID,R8,4$ [SET VALID BIT IN PTE 


SYSCRMPSC - Create and Bop section systee Revlon 19° SEP=1984 0438343 AX/VMS Macro V04-00 Page 4g 
v04-000 MGBLSC = MAP GLOBAL SECTIO SEP=1984 03:50: SYS.SRCISYSCRMPSC.MAR; 1 (5) 
0600 8 e8 1 2 4$: PUSHR #*M<R9,R10> ;SAVE_ADR OF PFN BASES AND PIECE SIZE 
D 107 CLRL RT SFORCE USE OF GSD FLAGS 
59 ¢ B60 107 MOVL  MMGSL VEYELAGS(FP) R9 RESTORE FLAGS FOR SETSECPROTOWN CALL 
B 107 BSBW SEISECPRO SSET SECTION PROTECTION AND OWNER 
060 BA 1 POPR #*M<RO,R = SRESTORE ADR OF PFN BASES AND PIECE SIZE 
1 1 BRB 3 ‘BR PAST NO SECTION TABLE CODE 
D4 1 g 5$: CLRL = R10 [REMEMBER NO SECTION TABLE ENTRY EXISTS 
58 26 A D 6 1 MOVL GSD$L BASEPFN(R6) J RB CREATING VALID PTE 
58 380200000 ; A 1084 BISL2 #<PTESM_VALID ! PTESM wthibOU>. RB; -SET VALID & WINDOW 
| 1085 BRB 7$ :SKIP PAGE TABLE INDEX 
16 EF 0573 1 6 6$: EXTZV #PTESV_GPTX ECadBSsR gPTX, :GET THE FIRST GLOBAL 
58 08 AA 226 1 SECSL PxP rt 3 PAGE TABLE INDEX 
1A 3 79 1 8 7$: BSBw Ss hia 'SET SECTION PROTECTION AND 
58 36 D a7¢ 1089 8$: MOVL R R 1 i SAVE GSD ADDRESS FOR RNGSRAPSECPAG 
67 E 7F 4 30 BLBC = RO, 138 :BRANCH IF PROTECTION VIOLATION 
50 D1 0582 109 CMPL Pees “NORMAL ,RO [WAS THERE AN ALTERNATE SUCCESS CODE? 
13 0585 1 36 BEQL 4«6=soO98$ 'BR IF CODE WAS NORMAL SUCCESS 
08 AE 6550S sé 3 33 MOVL RO, 8(SP) [SET ALTERNATE RETURN CODE 
588 1095 ; BECAUSE OF THE REGISTERS NEEDED BY EXESCHECKPROT_16 FOR INPUT, SAVE 
3 36 + R2 THROUGH R6 NOW 
007C 8F 8B 3 ; 98 9$: PUSHR #*M<R2,R3,R4,R5,R6> ySAVE SOME WORK REGISTERS 
58F 1100 : R4= SHB ADDRESS, IF Sh ORAL SECTION IS IN SHARED MEMORY 
58F 1101 > VALIDATE THIS PROCE ACCESS TO THIS FIL 
SF 11 é > NOTE: SINCE REFCNT ese INCREMENTED ABOVE, GSD CAN'T GO AWAY EVEN THOUGH 
08 F 1108 > GSD MUTEX IS RELEASED. 
55 1406 9 88 6 1108 : MOVAB GSD$W_PROT(R6),R ;SET PROTECTION WORD ADDRESS 
7E 10 a6 00 05 3 1106 MOVL SDSL “FiculeeRés> -(SP) iGET FILE OWNER 
04 12 0597 110 BNEQ so SUSE THE FILE UIC 
6E OC AB D 0599 1108 MOVL  GSDSL_PCBUIC(R6),(SP) :NO FILE = USE SECTION CREATOR UIC 
59D 1110 : CHECK THAT THE CALLER HAS READ OR WRITE ACCESS TO THE SECTION 
39 11] + ACCORDING TO HOW IT IS TO BE MAPPED. 
50 00000000'GF 00 0590 1143 10$:  MOVL G*SCHSGL CURPCB,RO :SET CURRENT PROCESS CONTROL BLOCK ADR 
50 008C CO DO O5A4 1114 MOVL PCBS$L_ARB(RO),R :GET ACCESS RIGHTS BLOCK 
54 20A0 9E O59 1115 MOVAB aR Res “RIGHTSL ST(RO) ,R4 iSET RIGHTSLIST ADDRESS 
53. 01 dO O5aD 1116 MOVL MSA_READ,R UP FOR READ ACCESS CHECK 
09 E8 AD i El 38 Wi pec, asEcsN- “EXECUTE .MMGSL _vFYELAGSCFP) 118 
0359 17 €6 0587 11 BBS iebhces PRYMODE1 » 9,11$ ;MAKE SURE PREVIOUS MODE WAS EXEC, KERNEL 
3 dO 605BB 11 MOVL FARnsn ET UP FOR EXECUTE ACCESS CHECK 
13 —8 AD 03 SBE 1121 11$: BBC KECUTE sR VEYFLAGS(FP).12$ :BR IF NOT WRITING THE SECTION 
OAR id ORE? 1198 SNEG c3p8B. =TVPE RG) ABYC 650,515 TT LOCAL RERORY GSD 
1 €0 05¢9 1124 BBS WSECSV_CRF,SECSW_FLAGS(RIO) 128 ;CRF DOESNT NEED WRITE ACCESS 
ta CE 1125 BBS #SECSV"CRF MMGSL-VFYFLAGS(FP),14$ :CALLER CAN'T GET CRF 
2 0 DS 11 6 111$:  MOVL #ARNSATY RITE,R SSET UP FOR WRITE ACCESS CHECK 
5D6 «1107 12$: MOVE [GET OBJECT'S OWNER UIC 
dD9 11 MOVAB ARBSa *PRIV(RO) .R2 [SET PRIV QUADWORD ADDRESS 
0000 90" Ba D¢ 11 JSB EXESCREC PROT 16 [D6 SOGW PROTECTION CHECK 
C BF 46BA «(OSES «611 POPR R4,R5,RO> SRESTORE REGISTERS 
566 (1131 BLBS SBRANCH IF CALLER HAS DESIRED ACCESS 
5 SE9 (1132 138: BRW ROIS :BRANCH IF ACCESS DENIED 
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v04-000 MGBLSC = MAP GLOBAL SECTIO -SEP=1984 03:50:00 [SYS.SRCISYSCRMPSC.MAR; 1 (5) 
¢ 1133; 
50 016C 8F 3¢ 2 1134 14$: = MOVZWL #$$8_IVSECFLG,RO yINVALID FLAGS SPECIFIED 
F611 oF 1 5 BRB 13$ 
5F3 11 ; ; R7_= COUNT OF PFN BASES ALLOWED IN GSD 
i 1 : : R10 = ADR OF NEXT PFN BASE IN GSD 
28 OA AB 91 O5F3 1140 15s: CMPB = GSDSB_TYPE(R6) ,ADYNSC_EXTGSD ;1S THIS AN EXTENDED GSD? 
38 1F OSF7 1141 BLSSU MAP_LOCAL_MEM :NO, GO USE SECTION TABLE ENTRY 
6 1A 05F9 1146 BGTRU SHM™~GSD :NO, GO USE SHARED MEMORY GSD 
59 28 A6 DO O5FB 114 MOVL GSDSL_PAGES(R6) .R9 :YES, GET # OF PAGES IN SECTION FROM GSD 
37,11 ai 1144 sat ate RB $ SSKIP FINDING # PAGES FROM SECTION TBL 
57 04 91 0601 1146 -""CMPB ss #GSD$C_PFNBASMAX,R7 31S THIS THE FIRST BASE? 
4D ff 604 114 BNEQ :NO, BR THEN TO SKIP RELPAG OFFSETING 
50 1C AC DO 0606 1148 MOVL §RELPAGTAP) ,RO :GEf STARTING RELATIVE PAGE TO MAP 
59 50 D1 060A 114 CMPL RI :SEE IF RELPAG IS PAST THIS PIECE 
4 1F 060D 1150 BLSSU 32$ ‘BR IF MUST MAP PART OF THIS PIECE 
57D? «(060F 1131 20$: DECL R :DEC COUNT OF PIECES OF SECTION TO MAP 
08 12 61 113¢ sa neLPonee TRY_NXT_BASE :BR IF ANOTHER PIECE TO MAP (MAYBE) 
50 0870 8F 3 613 1154 =~ MOVZWL #SS$_ENDOFFILE,RO ;REMEMBER THERE WERE NO PAGES TO MAP 
0106 1 ot 1133 sae es ry, PRE_MAP_ERR 7BR IF NO SECTION TO MAP AT ALL 
58 BA 00 618 1189 -— "MOVE. —s- (R10) +, RB :GET PFN BASE OF NEXT PIECE 
59 BAC él 1158 ADDL2 (R10)+.R9 TADD NEXT BASE COUNT TO RELPAG OFFSET 
59 50 »b1 0621 1159 CMPL  —s RO, RO :1$ RELPAG PAST THIS PIECE? 
9 1E 0624 1160 BGEGU 208 ‘BR IF NOTHING IN THIS PIECE TO MAP 
59 50 C2 06 $ 1161 SUBL2 RO,R9 [GET OFFSET TO FIRST PFN TO 
50 FCAA 59 (C3 06 116¢ SUBL3 R9,-4(R10),RO [GET # OF PAGES IN PIECE NOT MAPPED 
58 50 £0 62— 116 ADDL2 RO.RB 'GET FIRST PFN TO BE MAPPED 
FFIS) 31 6 j 1164 na ocat ten 3$ ‘BR TO CREATE PT 
59 1C AA 00 4 1166 -""" MOVL = SECSL_PAGCNT(R10),R9 | ;NUMBER OF PAGES IN THE SECTION 
50 1C AC DO 0638 1167 30$:  MOVL RELPAG(AP),RO SSTARTING RELATIVE PAGE TO MAP 
5 19 063C 1168 BLSS ILL RELPAG ‘BR IF ILLEGAL RELPAG, NEGATIVE 
59 50 D1 063E 1189 CMPL RO, RO "1S RELPAG WITHIN THE SECTION? 
18 0641 1170 BGEQ ILL RELPAG :BR IF ILLEGAL RELPAG, PAST SECTION 
59 C2 0643 1171 328 SUBL RO, RO [FEWER PAGES TO MAP 
58.50 g 646 1128 ADDL RO, RB “BIAS STARTING GPTX 
15° OA A6 91 0649 1173 358 CMPB = GSO$B_TYPE(R6) ,ADYNSC_GSD ;1S THIS NORMAL GSD? 
04 12 0640 117% BNEQ § COMMON_MAP -BR ON NO, DON'T SET TYPO BIT 
0058 1 € G4 1123 BBSS  #PTESVTYPO,R8,COMMON_MAP ;GLOBAL PAGE TYPE 
$3 1199 + O(SP) = STARVA, 4(SP) = ENDVA 
65 1178 + R6 = GLOBAL SECTION DESCRIPTOR BLOCK ADDRESS 
653 1179 : RB = STARTING PTE CONTENTS, R9 = MAXIMUM PAGE COUNT TO MAP 
6 i 9 : R10 = GLOBAL SECTION TABLE ADDRESS 
1182 COMMON_MAP: 
BA ° 11 4 -POPR #*M<R2,R3> :R2 = STARTVA, R3 = ENDVA 
50 f 65 1 4 RCOML R2 RO SSTARTVA = -12 
OOA e3h 11 6 BRW 84 sBRANCH IF YES, NO RANGE TO MAP 
15 OAA 1 D 1187 40$:  CMPB GSDSB_TYPE(R6).#DYNSC_Gob ;1S THIS NORMAL GSD? 
‘ive | 61 11 8 BNEQ 48% :NO = DON'T TRY ANY OPTIMIZATIONS 
54 52 7D 0663 11 MOV = R2, R4 [GET THE START AND END VA 
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v04=000 MGBLSC = MAP GLOBAL SECTION ae} 7 84:28:08 SYS.SRCJSYSCRMPSC.MAR; 1  @) u( 
00000000" EF 16 6 1190 JSB MMG$IN_REGION :1S IT NEW ADDRESS SP 
i€ E ¢ 1191 BLBC ~=_- RO, 48S [NO = CREATE IT THE HARD WAY 
59 D1 F 14 ¢ CMPL «ORR [CHECK FIT OF SECTION IN THE SPACE 
1 é 119 BNEQ 4 SNOT EXACT = DO IT THE HARD WAY 
54 9900000 ‘EF p 74 1194 MOVL § SCHS$GL_CURPCB,R4 
000000 a 7B 1195 JSB MMGSTRY_ ;SEE IF REGION CAN BE EXPANDED 
09 50 5 681 1196 BLBC)=OséiR ‘NO = CREATE IT THE HARD WAY 
1 D 30 0684 119 BSBU = FAST_MAP :D0 IT THE FAST WAY 
0498 SF BB 6 q 1198 PUSHR #eMCRS.RGR7RI0> [NO EFFECT = MATCHES A LATER POPR 
4 D7 068D 1200 48$:  DECL R sPAGE COUNT BASE 0 
53 : D1 é . 4 O1 CMPL = R2,, RB [CHECK DIRECTION OF MAPPING 
1F 2 1 Q BLSSU § ‘BRANCH IF FORWARDS 
04 1A 634 120 BGTRU $ ‘BRANCH IF BACKWARDS 
03 52 1E €1 0696 1204 BBC #VASV_P1,R2,60$ SWHEN EQUAL, FORWARD IF PO, BACKWARDS IF P1 
58 659) «= C0 «(069A 1 05 50$: ADOL AR ‘START AT LAST GPTX WHEN MAPPING BACKWARDS 
84 Ocer*Cr DE 0690 1 é 60$: § MOVAL UZAMGSMAPSECPAG R6 ‘MAP SECTION PAGE ROUTINE 
0498 8F BB O6A2 1 PUSHR #*M<R3,R4,R7,R10> :SAV VA RANGE, SHB,PFNBASCNT,PFNBAS ADR 
29 OA AB 91 «06A6 1 : CMPB GSDSB_TYPECRIT) ,ADYNSC_SHMGSD :1S THIS A SHARED MEMORY GSD? 
2 12 O6AA 1 BNEQ 65$ sBR IF JT IS NOT 
A D4 O6AC 1210 CLRL = R10 sINIDICATE NO GST CNT TO INCREMENT 
00000000'GF 16 O6AE 1211 65$: JSB G“MMGSCREDEL SUSE THE COMMON CREATE PAGE CODE 
50 €8 0684 1 1 BLBS R0,66$ 
10 AE 50 DO 0687 121 MOVL  RO,16(SP) ;SAVE THE BAD STATUS 
00000 00°GF if 688 1214 66$: JSB G“MMGS$RE TRANGE 
59 5 Wis O6C 1215 SUBL3. -R1,R2,R :GET # BYTES ACTUALLY MAPPED 
03 18 06C5 1216 BGEQ 67$§ 7BR IF RANGE IS IN INCREASING O 
59 59 ce 26¢7 1217 MNEGL ‘NEGATE THE BYTE COUNT, RANGE DECR ORDER 
59 59  F7 BF 6CA 1218 67S: #-§,R9,R9 :CONVERT BYTE COUNT TO PAGE COUNT 
0498 8F BA O6CF 1219 POPR #*M<R3.R4,R7,R10> :GET VA RANGE,SHB,PFNBASCNT,PFNBAS ADR 
59 D6 06D3 1220 INCL R9 SACTUAL COUNT OF PAGES MAPPED 
03 50 £8 06D5 1221 BLBS R0,80$ TIF SUCCESSFUL USE SUCCESS STATUS 
0608 1 : SALREADY ON TOP OF STACK 
6E 50 00 0608 3 70$:  MOVL  RO,(SP) TOTHERWISE SAVE ERROR STATUS 
0608 1225 : O(SP) = SYSTEM STATUS CODE 
608 | $ + R11 = GLOBAL SECTION DESCRIPTOR ADDRESS 
28 OA AB 91 06DB 1 8 bos CMPB = GSDSB_TYPE(R11) ,ADYNSC_EXTGSD ;1S THIS AN EXTENDED GSD? 
2 1F O6DF 1 BLSSU 85$ sNO, BR TO CLEAN UP SECTION TBL ENTRY 
9 1A 06E1 1230 BGTRU PIECE_MAPPED *NO, BR IF SHARED MEMORY GSD 
50 00000000'GF DE 6€3 1231 82$ MOVAL G*EXESGL_GSDMTX,RO 'GEf MUTEX TO LOCK 
54 00000000'GF 00 O6EA 1 ‘ MOVL  G*SCHS$GL~CURPCB,R4 [GET ADR OF PROCESS PCB 
00000090" Gt Ie ofl 1 JSB G*SCHSLOCKW SLOCK GSD MUTEX FOR WRITING 
C AB p F7? 1234 DECL  GSD$L_REFCNT(R11) TRELEASE THE GSD TO ALLOW DELETION 
F903" 30 O6FA 1235 BSBW  MMGSGSDMTXULK SUNLOCK GSD MUTEX 
1F 611 O6FD 1 : BRB 90$ TALL DONE 
59 D4 O6FF 1237 84$ CLRL = RO S INDICATE NO PAGES MAPPED 
d8 «11 1 1 : BRB 80$ = JOIN COMMON CODE 
1 16AB 32 07 : 1239 85$ CVTWL  GSD$W GSTX(RI1) R1 TSECTION INDEX 
35 O00000'FF DE 0707 1240 MOVAL aL Cnn GL_SYSPHD RS [SYSTEM PROCESS HEADER 
0000000'GF 16 07 E 1241 JSB G*MMGSDECSECREF SREMOVE SECTION REFERENCE BIAS 
54 00000000'GF 00 714 1 4¢ 88$ MOVL “SCHSGL CURPCB,R4 [GET ADR OF PROCESS PCB 
FaE@ $0 0718 124 BSBW MMGSDELGBLWCB [DELETE ANY GLOBAL WINDOWS | 
BA 71E 1244 90$ POPR M<RO> [SYSTEM STATUS CODE 
4 £3 45 RET SRETURN STATUS TO CALLER 
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v04-000 MGBLSC = MAP GLOBAL SECTIO “SEP-1984 03:50:00 (CSYS.SRCISYSCRMPSC.MAR;1 (5) 
721 1247 ; THE USER REQUESTED THAT NO PAGES BE MAPPED OR THERE WAS AN ERROR BEFORE 
721 «1 48 ; THE PAGES WERE MAPPED. SHARED MEMORY GSD'S MUST BE MAPPED FOR CREATION; THIS 
f ! ! 23 ; IS CHECKED IN SCRMPSC (FOR A VALID RELPAG, ONLY). 
721 1 31 PRE_MAP_ERR: 
6—€ 50 p0 0721 1 : MOVL RO, (SP) sSAVE RETURN ERROR CODE 
28 OA AB 91 0724 1253 1108: CMPB sbs8_ TYPE(R11) ,ADYNSC_EXTGSD ;WHAT TYPE OF GSD IS THIS? 
D9 «=F 0728 1254 BLSSU & ;BR IF LOCAL MEMORY 
13 072A 1255 BEQL 28 [BR IF EXTENDED GSD 
50 01 GA O72eC 1 36 MOVZBL #1,RO i ONE REF COUNT FOR A LOCK 
00000000'GF 16 O72F 125 JSB G*MMGSDECSHMREF RELEASE THE GSD LOCK 
DB 66 (0 59 07 . 4 38 BBS #GSD$V_VALID,GSD$L_GSDFL(R6) ,88$ ;BR IF NOT CREATING GS 
1 0739 1 BRW SHM_UNFAPPED :BR fo DELETE GS AS CANNOT ALWAYS 
Of ¢ 60 s INITIALIZE A SHARED MEMORY GS. 
73C (1 6¢ 3 APIECE OF A SHARED MEMORY GLOBAL SECTION HAS BEEN MAPPED. UPDATE THE 
4 : : a7 3 ; RETURN RANGE OF VIRTUAL ADDRESSES MAPPED AND SET UP TO MAP THE NEXT PIECE. 
73C «1265 BIECE_MAPPED: 
50 59 9 o73¢ 1266 MOVL  R9,RO :GET COUNT OF PTE ® S JUST CREATED 
55 13 «(O73F «61267 BEQL 1468 [BR IF NOTHING M PPED 
56 5B vO 0741 1268 MOVL RESTORE ADR 
OF 66 03 «£0 O46 $9 BBS PoSOSV. INITFAIL, GSDS$L -GSBFL (R6). 5 88 :BR IF UN-MAPPING GS 
00000000' GF 16 0748 1271 JSB G*MNGSINCSHMREF ‘INCREMENT THE PROCESSOR REF COUNT 
04 DS O74E 1378 TSTL 4(SP) :1S START RETADR A VALID ADR? 
Of 12 0751 127 BNEQ 120$ ; N YES, FIRST ADR MAPPED SET 
04 AE 51 00 0753 127 MOVL R1,4(SP) SASSUME RETADR NOT SPEC, ,USE INADR VALUE 
0C BB 0757 1275 120$:  PUSHR #*M<R2,R3> :REMEM NEW START VA AND END VA 
66 D6 0759 1276 INCL (SP) ROUND NEW START VA TO PAGE BOUNDRY 
57 Dd? 0758 1277 DECL R7 [ONE LESS PIECE OF SECTION T 
25 15 O75D 1278 BLEQ  NO_MORE_PAGES ; RE PIECES IN SECTION 
046 AA D5 O75F 1279 TSTL  4(R10) 3WAS SECTION CREATED IN PIECES? 
OD 13 0762 1280 BEQL. 121$ ON E CONTIGUOUS BLOCK OF PAGES 
7E 53 QOOOO1FF BF C9 0764 1281 BISL3 #*X1FF,R3,-(SP) :GET ENDING ADR, ROUNDED TO LAST BYTE 
8E 52 D1 O076C 128 CMPL R2 (SPS+ 31S SECTION MAPPED BACKWARDS? 
Op 1A O76F 1 8 BGTRU 125$ BR IF RETU N ROR COD 
04 66 O03 €0 0771 1284 121$: BBS #GSDSV_INITFAIL,GSDSL A6SBFL CRG) siges 8 F UN-MAPPING GS 
0B 08 AE &9 0775 1285 BLBC  8(SP),RNO_MORE_PAGES o'RAP Toke IF GOT ERROR 
FOC 1 0779 86 122$:  BRW MAP_NXT_BASE ~ ‘BR Mon fry TO. PIECE TO MAP/UNMAP 
077¢ 13 § 
9 11 o77e 89 124$: BRB 88S ;HOP, SKIP FOR BROKEN BRANCH DISPLACEMENT 
77E 1291 
174 7 92 125$: MOVZWL #SS$_IVSSROQ,8(SP) ;*** BACKWARDS MAPPING IS BROKEN 
ep, ah ra 7a $5 | re e y*ee FOR MULTIPLE PIECE SECTIONS 
784 1295 NO MORE PIECES OF SHARED MEMORY SECTION LEFT TO MAP. THIS MAY OR MAY NOT 
; ! 36 : BE AN ERROR, DEPENDING UPON WHETHER OR NOT AT LEAST ONE PAGE WAS MAPPED. 
784 1598 WO O_MORE_PAGES: 
0C BA 0784 1299 OPR #*M< :CLEAN OFF START VA AND END VA 
50 F4 AD DO 0786 1300 MOVL MM sU° oe ETADRIEP), RO :GET ADDRESS OF RETURN ADR BUFFER 
m1 Oe Te Pitbver far t00) 140 ore ar Tee EST i 
60 O04 AE 00 07 s 1 f movL  4(§P), (RO) sRESET TO VERY 1ST STARTVA IN RET RANGE 
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v04-000 MGBLSC = MAP GLOBAL SECTION aes 1 §h:2 :00 SYS SRCISYSCRMPSC. MAR; 1 . 28 
50 01 9A 796 4 140$:  MOVZBL #1,RO :0N E ser, COUNT FOR THE GSD LOCK 
et heal i 1309 BBec | SGSDSY NITE ATL , GSDSL ositnove th SHA_GRMABECE. <BR IF INIT FAILED 
is PED 
D5 66 «600)ts«éS tA : BBSSI #GSD$VVALID,GSOSL_GSDFL( Rb) fobs "ah ON SMGBLSC REQUEST 
7A7 1310 : THE GLOBAL SECTION DESCRIPTOR WAS NOT VALID. THEREFORE, THE GSD IS BEING 
UNA i : MAPPED DUE TO A $CRMPSC REQUEST. THE PAGES MUST NOW BE INITIALIZED. 
7A7 (1313 :R6=GSD, INADR(AP) , (SP) =MAP STATUS CODE 
52 04 A 20 7A7 1314 MOVL 4 (SB) R2 SSTARTVA FOR VERY FIRST PAGE MAPPED 
F852" 30 O7AB 1315 BSBW MGSREAD_GSD 'BR TG READ SECTION INTO MEMORY 
41 50 =~€9 rAE 1 BLBC RO. SRELEAS. SHMGS ‘BR IF FAILED TO INIT SECTION PAGES 
0781 1318 ; NOW THE SHARED MEMORY GSD TABLE MUST BE SEARCHED, CHECKING FOR SUCCESSFUL 
0781 1319 : CREATION OF A GLOBAL SECTION WITH THE SAME NAME AS THE ONE BEING CREATED. 
07B1 1 20 : THIS ALLOWS THE GSD TABLE TO BE OPEN FOR ACCESS DURING THE LENGTHY PROCESS 
07B1 1321 : OF INITIALIZING THE SECTION PAGES. T ALSO ALLOWS TWO USERS T 
781 3¢ : TRY TO CREATE THE SAME SECTION AT THE OS EME Rein 
o7Bi 1324 :R11=GSD,R4=SHB 
F84C"' 30 O7B1 1325 BSBW § MMGSUNIQUEGSD [VALIDATE THAT THE NEW GSD IS UNIQUE 
07B4 1326 :R3=SHD R6=DUPLICATE GSD ADR 
56 05 07B4 1327 TSTL RS RE A DUPLICATE GSD? 
2913 0786 1328 BEQL 135% <BR IF THERE IS NOT A DUPLICATE 
0788 1389 : NOW CHECK THAT THE DUPLICATE GLOBAL SECTION PASSES THE IDENT MATCH CONTROL 
0788 1331 : TEST. IF IT DOES NOT, THEN RETURN AN ERROR CODE TO THE USER. IF IT DOES 
07B8 3¢ : MATCH, THEN GO MAP None DUPLICATE. 
18 A6 DS 0788 1382 TSTL  GSD$L_IDENT(R6) :1S THIS ALWAYS MATCH? 
27 13 «0788 1335 BEQL 141$ ~ ‘BR TO USE SECTION IF ALWAYS MATCH 
18 AB IB AB O97 07BD 1336 CMPB = GSD$L_IDENT+3(R6) ,GSDSL_ iDENT*3<Ri1 SDOES MAJOR ID MATCH? 
0D 12 O7¢2 1337 BNEQ 1338 ~ -BR ON NO, CAN'T USE DUP SECTION 
18 AB 18 A6 D1 O7C4 1338 CMPL  GSDSL_IDENT(R6) ,GSDSL_IDENT(R11) :COMPARE ENTIRE LONGWORD 
06 1A 0769 1339 BGTRU 133$ 3BR IF LARGER, NO MATCH, CAN'T USE DUP 
15 18 AB €9 O7CB 1340 BLBC  GSDSL_IDENT(R6),141$ | :BR IF EXACT MATCH NOT REQUIRED 
13 13 O7CF 1341 BEQL 1418” 'BR IF AN EXACT MATCH, CAN USE DUP 
6E O3F4 BF 3C O70) 1 4g 133$: MOVZWL #SS$_IDMISMATCH, (SP) ;REPORT DUPLICATE GS NAME 
01 9A 0706 134 MOVZBL #1, ONE REFCNT FOR LOCK 
00000000'GF 16 0709 1344 JSB G“MMGSDECSHMREF RELEASE LOCK ON DUP AS WON'T MAP TO IT 
OA 11 O7DF 1345 BRB 143$ :RETUR N 10 USER WITHOUT MAPPING DUP 
0089 31 O7E1 1 46 135$: BRW 150$ BR FOR NO DUP GSD PATH 
00 68 04 £6 O7E4 1347 141$:  BBSSI  #GSD$V_DUPGSD.GSDSL -ssort tnt} sites. ZRECORD DUP GSD CREATED 
6— 50 DO O7E8 1348 1488: MOVL RO, (SPT MEMBER CODE 
04 AaB O56 D0 7EB 1349 143$: MOVL R6.GSD$L_GSDBL(R11) REMEMBER GRR OOF DUP GSD TO MAP TO 
56 D rer 30 MOVL R11,R6 SRESTORE ADR OF GSD BEING CREATED 
7F2 1 : : AT THIS POINT, THE GLOBAL SECTION MUST BE RELEASED. EITHER THE GLOBAL 
7F2 1 t SECTION COULD NOT BE INITIALIZED OR A DUPLICATE SECTION WAS FOUND. IF A 
7F2 1354 : DUPLICATE SECTION WAS FOUND, THE NEW SECTION MUST BE DELETED AND THE OLD 
7F2 1355 : SECTION MAPPED, INSTEAD, THEREFORE, BEFORE RETURNING A STATUS CODE TO THE 
7F2 1 36 : USER, THE PAGES MUST BE UNMAPPED FROM HIS VIRTUAL ADDRESS SPACE. THIS IS 
7F2 1 3 : DONE BY SETTING A TEMP DELETE FLAG, AND THEN RE-EXECUTING THE $MGBLSC LOGIC 
7FO2 1 : : CALLING SDELPAG INSTEAD OF SCREPAG. WHEN THE LAST REFERENCE (PTE) TO THE 
7F2 1359 : SECTION IS DELETED, THEN THE SHARED MEMORY PAGES ASSOCIATED WITH THE SECTION 
7F2 1360 : AND THE GSD MAY BE RELEASED. IF THERE IS A DUPLICATE SECTION, THEN A SMGBLSC 
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vons000 MGBLSC = MAP GLOBAL SECTION §-8 - oe 83:28:48 SYS. SRCIJSYSCRMPSC. MAR; 1 (5 
zr ; 1S PERFORMED TO IT. 
sf : RELEAS. sungs :WAS ANYTHING 7fareen? 
at. ° 7F5 1365 BEQL SHM *BR ON THING TO UNM 
6 7F7 «136 BBCS Ss # nua INT EPAIL, GSDSL _GsbFL (Re). Whose “SET TMP be INDIC 
- $8 83 BA 7FB 83 144$:  MOVZBL # RO :REF COU UNT INCRER ENT 
' 16 fe i 88 JSB G“MMGSINCSHMREF ‘LOCK GSD $O IT CAN'T BE DELETED 
kere bs DD 0804 1370 145$: PUSHL R3 LAST ENDING VA HA APP PpeD et 
OFS ef 09 : re Bron OAPGBLSECS SREPEAT CODE, UNMAPPING THE VA SPACE 
& 1957 SHM_UNMAR ED! ! T ADR OF SYSTEM PROCESS HEADER 
a ae 8 8 , i ae Cyd MESS eet eens at éf SECTION pyABLE ENTRY INDEX 
at 38 Ag 1 $81 137 ADDL3 PHDSL~PSTBASOFF (RS) ,R5, rb = COMPUTE A PEE TION TBL ENTRY 
Oy A He wt Y 8 MOVAL BS ERTS R10 380 THAT IT CAN OBE RELEASED 
= sof pf 88 § 1378 CURL C$L_GS0(R10) +] NDICATE NO GSD CONNECTED TO IT 
BBSS 1349 tira serge percent fe, SECSL. REF CNT CNT, $O IT WILL BE DELETED 
00 14 a? Of ff 3 ; i Bt BBCC ASECSO PERN, SESW, FLAGS ct d, pa ar wget reper ERMANENT FLAG 
a 88 i He seen” Semmga ernee Fras thes 1528 STATE DELETE IT (HOLDING GSD MUTEX) 
09,78 83 9A O82F 1384 152$:  MOVZBL #SHD$_BITMAPLCK,RO ER OF BIT lock OeraUeSteD 
, F7en" 30 08 2 1385 "  BSBW - MMGSSHATXLK <REQUEST MUTEX AND BIT LOCK 
bB32 i gS : ; AT SOME TIME THIS SHOULD SEND A MESSAvuc TO THE ERROR LOGGER. 
ee ta ee E TO ACQUIRE BIT Map LOCK 
10 50 €9 0835 1389 BLBC 4% : UNABL aiO ACQUIRE BIT MAP L 
” OF tt: 39 aBsc i 3 Bsou SHEBL DATAPAGE (RA), ie ee AL PAGES ALLOCATED FOR GS 
' REL 
F7BE ¢ OBaD i 3 Bacel ett ih nT CK,SHD$B_FLAGS(R5),146$ ;RELEASE BIT LCK 
vi 0080 g 60 ES dacs 1394 146$: BBCCI #GSDSV_ VALID, GSD8L ~GSDFL(RG) 1478 “Sop. Eare esd To" ALID. ve 
so OF tee iv OO $1 GSDFL(R6) 1485 :BR IF NO DUP GSD TO MAP TO 
04 66 04 €E7 O84E 139 BBCC] #GSD$V_DUPGSD,GSDSL CRG) 1688 BR IF NO bu 
ri 66." Of er ne i : 148$: pect I gato rrr oekEDceS0BL sort th Mt tes COCK! THE GSD _FOR REUSE 
51 15 A4 9A OB85A 1399 149$:  MOVZBL SHBS$B PO stl OR THIS PROCESSOR | 
atege 2 Ee a83¢ 1201 DECL Seales me “IMs” PORT 
SET ADR 
56 «5B 00 0866 1408 MOVL 11 zr SET A retUR DUPLICATE GS 
13 0869 140 BEQL 16 :BR TO RETURN ERROR CODE 
3 iy Sben 1208 150$: BBeCI peepsy _LOCKED, GSDSL -GsprC (R11) 160$ UNLOCK THE GSD FOR USE 
=e FEAO 5 871 1406 160$: BRW 88$ DONE, GO CLEAN 
SBF 1209 .DSABL LSB 
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0$: BBC 


MOVAL 
BRB 


; PO SPACE 
50$: = MOVAL 
30$: ADDL 


35$: EXTZV 
8 
40$: MOVAB 


45$: JSB 


50$: ASHL 


55$: BBS 


region w 
loop overhead. 
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»SBTTL FAST_MAP = DO COMMON CASES EFFICIENTLY 
; MAP A GLOBAL SECTION THE EASY WAY 


-SEP=1 SYS. SRCIS YSCRMPSC..MAR: 1 (6) v 


This Le Be ath is used for new adress space beyond the end of a 
all quota checks made in advance. 
The main een does four pages at a time to further decrease the 
R2,-(SP) ;SAVE THE VA'S 
4” 318 R2 THE LOWEST VA 


#VASV_P1,R2,20$ ;BRANCH IF PO SPACE 


Seer tenes Me zADR OF POINTER TO P1PT 


PHDSL_POBR(RS) ,R3 zADR OF POINTER TO POPT 
R6,SECSL_REFCNT(R10) sADJUST REFERENCE COUNT 


#SECSV -RESIDENT SECSW FLAGS (R10) 358 -1S IT RESIDENT 
PTESV- : Act Gprx FROM PROPOSED PTE 
SMNGSCC GPIBASE ROI,RO :GET FIR RST POSTE CA DRESS 
S INDICATOR FOR FIRST TIME THROUGH LOOP 
#°C<PTESM_OWN!PT ESM. PROTS, RB {LEAVE OWNER=-PROT IN PTE 
#PTESV_VACID.R8, VAL 


ES 
R3,R2 ‘NOW R2 IS LOWEST 
#VASV_VPN,#VASS_VPN.R2,R1_ ;VIRTUAL PAGE NUMBER 


10.8 27R6,RO sPAGES TO LEAVE A MULTIPLE OF 4 
#SECSV RESIDE DEN NT.SECSW_FLAGS(R10) 45$ :IS IT RESIDENT 
(RB) +, S(R3)CR1) sSTORE NéW PTE 
sNEXT PAGE 

RO 40$ 

50$ ;REJOIN COMMON CODE 
LCKPAGTBL1 

tk) ap TEsy PFN, APTESS_PFN,R8 ;PUT PEN IN PTE 
RB.a(R3) R1J sSTORE NEW PTE 
#4, [NEXT GPT 

R1 [NEXT PAGE 
RO, 45$ 
gx -RO.RG 


; DONE 
#SECSV_RESIDENT,SECSW_FLAGS(R10),65$ ;1S IT RESIDENT 


teat : ¥04-00 Page 29 
ce 16-SEP-1984 01:52:15 VAX/VMS Macro ; (6) 
SYSCRMPSC FASTSRAP ="DO COMMON CASES EFFICIENTLY, 'S-SEP=1984 05:50:00 LevSveRCISVSCRMPSC OMAR; 1 5 
v 5 ;STORE NEW PTE 
00 8341 BB 9F OBFE 1466 60S: © MOVAB (RB)+,8(RS)ER1] : STORE NEW 
00 8341 88 SE 08D 1488 MOVAB (R8)+,@(R3)CR1) gerne Wey PTE 
oom fF pha fleveecesice AREA or 
00 8341 ‘ ‘ 308 147¢ a a ee :NEXT PAGE 
12 1474 SOBGTR R6,608 De 
ee Y ig RB 908 ;REJOIN COMMON CO 
1 
WEE 16 Qair leer 658: SB £5) BPTE PFN,R8_;PUT PFN IN PTE 
58 15°00 69 18 091 1478 INsv Ch) “AETESY, PFN, APTESS. ;STORE NEW PTE 
59 0% CO 927 1480 4h SNEXT PAGE 
1 Pe O95t 148 we GE TABLE 
. sLOCK THE PA 
B00 69 FO 88 18 INSYV (ROD BPTESV. PEN, APTESS_PENORS PUT PEN IN PTE 
38 Oy 88 bk O08 148s MOV. RB. ACRSDERTI :STORE' NEW PTE 
00 8341 58 DO O87 1485 ADDL aeRO SNEXT GPTE 
ae AB A 
941 1488 ; sLOCK THE PAGE TABLE 
15°00 69 FO Be 1290 1Nsv CH) aPTEY PFN.APTESS_PFNRB_;PUT PEN IN PTE 
"Ob o3g) 3B BB Bier Hes] GML bag ROSE ingAT TE 
os BS Be oe car a artes ser eel 
. sLOCK THE PA 
18) 69 FO O98e. 1496 INSy (HS) “apTESY Prn,#PTESS PFNGRG.:PUT PFN IN PIE 
ik Or A: 0 me Se Ss dla a 
fied 6 FES alll 
A956 FS «0968 1501 © SOBGTR R6,65$ 
1 BE 7 OE 1308 708: Nova. (SPDs.R1 ;GET BACK THE VA'S 
2 ot Geri 1806 perky 908". :GOING BACKWARDS 
12 TA 0974 1305 Bessy 80S :GOING FORWARDS 
Me tt Berk 0s BBS» AVASV_P1,R2,908 EQUAL = Pl IS BACKWARDS 
CMe a Gk her Bitw SXF RT SSTARTVA IS START OF PAGE 
52 OFF BE MB OBR) 1808 BIsu #*xIFF, 
2 OMe BF AA 0988 1511 908: Bley BOXTER SEOUL AS END OF PAGES 
.  -BISH MAXTFFOR : PLETION 
i ai 1 $99 2 1318 1008:  ROVIWL #SS$_NORMAL ,RO INDICATE SUCCESSFUL COM 
05 0995 1514 RSB 


Sout 
SYSCRMPSC - Create and Map Section System Service 16-SEP-1984 52:1 AX/VMS Macro V04-00 Page 3 
v04-000 SETSECPROTOWN = SET SECTION PROTECTION A §-§ P=1984 84:28:48 SYS.SRCJSYSCRMPSC.MAR; 1 . 49, 
.SBTTL - N N 
99 SBTTL SETSECPROTOWN = SET SECTION PROTECTION AND OWNER 
4 ! 3 ; INPUTS: 
996 1 p : Rs a GLOBAL SECTION DESCRIPTOR ADDRESS 
996 1 : R8 = PAGE TABLE ENTRY WITH SECTION INDEX, FLAGS, PAGE TYPE BITS 
996 1 : ; OR PAGE TABLE ENTRY WITH PFN FOR PFNMAP-ING 
996 1 ; R9 = SECTION FLAGS 
996 1504 : P10 = SECTION TABLE ENTRY ADDRESS OR O IF GSD TYPE IS EXTENDED GSD 
99 5: MMGSL_MAXACMODE(FP) = MAXIMIZED ACCESS MODE 
$e $ : OUTPUTS: 
996 1 § : Ro = SYSTEM STATUS CODE 
444 ! ? 3 RB OWNER AND PROTECTION FIELDS FILLED IN 
996 13 : SETSECPROTOWN: 
996 1 .ENABL LSB 
01 od 0996 1534 PUSHL #SS$_NORMAL sASSUME NORMAL SUCCESS RETURN CODE 
51 59 02 06 EF 0998 1535 EXTZV #SECSV_URTHOD ,#SECSS_WRTAOD RO R1 ;GET WRTMOD MAPPER SPECIFIED 
SA D5 99D 15 : TSTL = RI sI1S° THERE A SECTION TABLE ENTRY? 
08 13 O99F 15 BEQL 2$ “BR IF NO SECTION TABLE 
02 06 EF O9A1 15 ‘ EXTZV #SECSV_WRTMOD ,#SECS$S_WRTMOD,- ;GET ACCESS MODE FROM SECTION 
50 14 AA ss O9A4 1339 “i SECSU_FLAGS(RIO) ,RO STABLE ENTRY, I.E. WHAT CREATOR SPEC 
S8 D3 9A9 1541 28 TSTL oR :1$ THERE A GLOBAL SECTION DESCRIPTOR? 
1€ 13 O9AB 1348 BEQL 108 “BR ON LOCAL PFNMAP, CREATOR=MAPPER 
02 06 EF O9AD 154 EXTZV #SECSV_WRTMOD,#SECSS_WRTMOD,- ;GET ACCESS MODE FROM GSD 
50 20 A6 780 1544 GSD$W_FLAGS (R6) ,RO 31.€., WHAT CREATOR OF GS SPECIFIED 
51 50 D1 09B3 1545 4s: CMPL = RO, RI ‘NOW MINIMIZE THE WRITE ACCESS 
08 15 986 1546 BLEQ Ss : PPER IFIED MORE ACCESS 
6E 203¢ 8F 3C 0988 1547 MOVZWL #SS$_IVLVEC, (SP) :SET ALTERNATE RETURN SUCCESS 
0 51 00 098D 1548 MOVL : “USE CREATOR'S ACCESS 
51 FC AD 02 00 EF 09C0 1549 5$ EXTZ2V #0,#2,B°MMGSL_MAXACMODE(FP),R1 ;GET CCESS MODE 
51 50 D1 09C6 1550 CMPL = RO.R1 ; RTMOD > ACMOD, THEN USE ACMOD 
3 19 09¢9 1551 BLss =_—«415$ [TO PREVENT ILLEGAL ACCESS, E.G., ERUW 
50 51 00 09¢B 133¢ 108: MOVL R1,R SAND TO SET CORRECT OWNER FIELD 
58 02 17 #50 FO 3 1353 15$: INSV  RO,#PTESV_OWN,#PTESS_OWN.RS ;SET PAGE OWNER IN PTE 
9 1336 : CALCULATE PROTECTION FIELD 
9 1 0903 1 : BBC #SECSV_WRT,R9,NO_WRT_ACCESS ;BR IF NOT TRYING TO WRITE SECTION 
m9 g 5S 3 Bi TSTL Rib . ~~ "SIS THERE A SECTION TABLE ENTRY? 
12 0909 155 BNEG 208 SYES, GO CHECK ITS FLAGS 
6 05 0908 1560 TSTL R [1S fHIS A GLOBAL SECTION? 
0c 13 0900 1561 BEQL 308 :NO, THEN MUST BE LOCAL PFNMAP 
ODF 156 :WIfH NO GSD OR SECTION TBL ENTRY (ONLY 
ODF 156 FLAGS ARE IN R9 AND ALREADY TESTED) 
2A 20 A6 3 oF 64 Bac #SECSV_URT .GSDSW_FLAGS(RO) £1 $ jBRANCH IF ILLEGAL TO WRITE 
23 14 AA E1 0966 1 6g 0$: BBC ’ ECSV_WRT,SECSW_FLAGS(RIO) bs “BRANCH IF ILLEGAL TO WRITE 
5 C4 0968 1567 30$:  mMULL2 #3,R sSCALE WRITE ACCESS MODE BY THREE BITS 
50 FB'AF 0 0 f 9EE 1 68 EXTV RO,#3,B°WRTMOD_TBL,RO GET PTE CODE FOR THIS WRITE MODE 
so Rt OOM Bae 1395 Sita. SbenbeADOMSSES EESTI WSS MORE HELE case 
A 11 oF8 1 9 R SET_PTE_PROT :G0 SET FROTECTION FIELD OF PTE 
9FB 1572 WRTMOD_TBL 
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ection System Me 1 AX/VMS Macro v04-00 Pa 3 
stt° $e CTIOW PR en se TION A $78 “5 oats 7 8}: 36: 00 Heys” SRCJSYSCRMPSC.MAR; 1 - aD 
«WORD *B100000001010 33 BIT PTE CODES, INDEXED BY 3 * WRTMOD 
NO_WRT_ACCESS: 
MOVZBL #3,RO ;SET PTE CODE FOR READ ONLY ACCESS 
GET_READ ACCESS: 
elk ia INSy R1,#2,#2,R0 ;INSERT READ ACCESS BESIDE WRITE ACCESS 
- “*INSV RO #PTESV, PROT,#PTESS_PROT,R8 ;PUT PROTECTION IN PTE 


90S: ROVL ($P)+,RO0 ~ ;SET RETURN STATUS CODE 


; TRIED TO MAP READ ONLY SECTION WRITABLE 


100$:  MmOovZWL #SS$_NOPRIV, (SP) :SET RETURN ERROR CODE, NO PRIVILEGE 
+ res RETURN ERROR CODE 
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SYSCRMPSC 
v04-000 


50 et aaa + 
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tht Gt AAA tet 


AG 


roe 


weeee NOTE THAT SECTION SIZE MUST BE SUCH THAT SECTION INDICES HAVE THE 
weeee LOW BIT ZERO. 


ASSUME SECSC_LENGTH@-281 EQ 0 
-ENABL LSB 


; haart | SECTION BEING CREATED ON CHANNEL WITH PROCESS SECTION INDEX 
GET WINDOW ADDRESS 


T ; 
nd Map Section System Service 16-SEP-1984 01:52: AX/VMS Macro V04-00 Page 3 s 
= ALLOC i INIT eT iON TABLE ety 93:28:33 SYS.SRCISYSCRMPSC.MAR; 1 ° 48) vi 

.SBTTL INITSECTBL = ALLOC & INIT SECTION TABLE ENTRY 

: INPUTS: 

: RS = PROCESS HEADER ADDRESS 

: R6 = GLOBAL SECTION DESCRIPTOR ADDRESS IF GLOBAL SECTION 

; = CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION 

: R7 = NUMBER OF PAGES TO BE MAPPED 

: Rs = CHANNEL CONTROL BLOCK ADDRESS 

RO = SECTION FLAGS 

: OUTPUTS: 

: RO = SYSTEM STATUS CODE 

: R1 = SECTION TABLE INDEX 

: Re .R3 ALTERED 

: R?. = SECTION PAGE COUNT 

: R10 = SECTION TABLE ADDRESS 


Ot kd ad ad ad ed mb HOO OODOOOOOCOOOOOOOOO® 


MEW @§ OOD NAME $$ 9 OD NA NE WWIN 9 ODNOA NE WIN $0 OD NOUN EWN 0 OG NOUNS 


a a Bn a ak at at et st = = 4 2 ss — bt — — 9 2 ss 2 — 2 9 4 - 2 ss 9 ss 9 2 ss 2 


MOVL  a@#CTLSGL_PHD,RO : PROCESS HEADER ADDRESS 
ADDL Hite _PSTBASOFF(RO),RO_ :FORM BASE OF PROCESS SECTION TABLE 
MOVL SECSL- “WINDOW(RO)CR23,R2 :GET WINDOW ADDRESS FROM PROCESS SECTION 
BRB [AND REJOIN THE NORMAL FLOW 
; SPECIAL CASE CODE FOR NON-FCP WINDOW = I.E. ONE CREATED WITHOUT BENEFIT OF 
: THE ACP = USUALLY DONE AT SYSTEM INITIALIZATION TIME. THE LOOP IS T 
: TAKE CARE OF POSSIBLY NON-CONTIGUOUS FILES. 
Los PUSHL 1 SNEED A SCRATCH REGISTER 
CLRL. = = (SP) SINITILIZE TOTAL VBN'S 
MOVZ2WL WCBSW_NMAP(R2) ,R1 [PICK UP NUMBER OF MAPPING POINTERS 
VAB_  WCBSW~P1_COUNT(R2) ,R2 POINT AT FIRST ONE 
45$: vZ R2),RO : PICK UP THE NUMBER OF BLOCKS/POINTER 
ADDL2 RO, (SP) : ADD TO TOTAL MAPPED 
ADDL *R ANCE TO NEXT POINTER 
SOBGTR 45$ TAKE CARE OF THEM ALL 
mova ($6) +.RO SRESTORE R1. RO = VOTAL VBNS IN FILE 
BRW 0$ SAND REJOIN THE MAIN PATH CODE 
: CHANNEL IS ACTIVE OR OTHERWISE INAPPROPRIATE FOR CREATING A SECTION 
4 * MOVZWL ass NOTFILEDEV,-(SP) ;FILE NOT RND, FOD, OR DIR 
BRB 7 360 RELEASE SECTION TABLE ENTRY 
4 608: MOVZWL #SS$ VCHNL SEC, -(SP) : INVALID reraeet FOR SECTION 
44 70$: JSB GPAAGED :DEALLOCATE CTION TABLE ENTRY 
4 POPR #*M<R i :GET ERROR STATUS 
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INITSECTBL = ALLOC 
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v04-00 
X CANNOT BE 
T BE USED 
N FROM CHANNEL 
ON CHANNEL 
TABLE ENTRY 
BAKSEC(FL) 
X (FORSECX) 
E ENTRY ADDRESS 
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S$ Macro 
RCISYSCRMPSC.MAR; 1 
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; PAGE FILE BACKING STORE 
ECSM_WRT 


55Se PFC 


MOVZWL #SS 
6558 EMDOFF ILE .(SP) 
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ASSUME S$ 
ASHL 
MOVZWL 
BRW 
-DSABL LSB 


PROCESS SECTION 
; ATTEMPT TO CREATE A SECTION BEYOND END OF FILE 
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L 
SYSCRMPSC Section System sbroles 16-SEP-1984 :52:15 VAX/VMS Macro V04-00 Page 35 
v04-000 SECTION . eet 83:28:43 YS.SRCJSYSCRMPSC.MAR; 1  %) 
175 .SBTTL MAP PROCESS SECTION 
178 : CALLING SEQUENCE: 
if ¢ 3 BRW MAP_PROCESS_SECTION 
1764 : INPUTS: 
1765 ; 
17 6 : R4 = PCB ADDRESS 
126 ; R& = CHANNEL CONTROL BLOCK ADDRESS, IF PFNMAP FLAG IS CLEAR 
1768 : R9 = SECTION FLAGS 
126 ; O(SP) = STARTVA 
1 ; 4(SP) = ENDVA 
1771: 8(SP) = SUCCESS CODE FOR MAP SECTION 
oc3 1776 3 PFN(AP) = FIRST PFN TO MAP TO, IF PFNMAP FLAG IS SET 
B68 1774 MAP_PROCESS SEC: 
68 1775 SETTPL #IPLS_ASTDEL 3NO AST'S WHILE MANIPULATING HEADER 
58 D4 $ 1776 CLRL R11 S INDICATE NO GSD ADR 
55 00000000°9F 00 177 MOVL § a#CTL$GL_PHD,RS ‘PROCESS HEADER ADDRESS 
0A 59 10 €1 OB77 1778 BBC #SECSV_PFNMAP,R9,1$ "1S PENMAPPING REQUESTED? 
06 65 1A €0 0B7B 1779 BBS #PRVSV-PFNMAP,PHDSQ_PRIVMSK(RS),1$ ;BR ON HAVE PRIV 
50 24 3C OB7F 1780 MOVZWL #SS$_NOPRIV,RO :NO PRIVILEGE FOR REQUESTED OPERATION 
91 9 31 B82 1781 BRW 9 SRETURN ERROR CODE 
00000000'GF 16 0B85 17 3 1$: JSB G“MMGSDALCSTXSCN SSCAN FOR SECTIONS TO DEALLOCATE 
56 58 00 88 17 ; MOVL  R8,R6 [CCB ADDRESS 
57 24 aC 00 Hi 1785 MOVL §SECPAGCNT(AP) ,R? :GET # OF PAGES IN SECTION 
59 DD 0B92 1786 PUSHL “REMEMBER FLAGS 
0894 1787 ASSUME <SECSM_CRF!SECSM_DZRO> EQ 6 
03 59 02 «01 ED 94 1788 CMPZ2V #1,.82,R9,#<<SECSA_CRF!SECSM_DZRO>@-1> ;1F CRF+DZRO, THEN DONT 
ay 0899 1789 L SCREATE SECTION TABLE ENTRY JUST PTE 
2459 10 €0 0898 1790 BBS #SECSV_PFNMAP,R9,10$  :DON'T CREATE SECTION PTE FOR PFNMAP-ING 
OB9F 1791 ASSUME <<SECSA_DZRO!SECSM_CRF!SECSM_WRT>&*XFFFFFFOO> EQ 
59 59 9A OB9F 1798 MOVZBL R9,R SELIM GBL FLAGS, PFNMAP, & EXPREG 
FEB8 30 179 § INI TSECTBL SALLOCATE AND INIT A SECTION TABLE ENTRY 
03 30 és 1794 RO,5$ :BR IF SECTION TABLE ENTRY CREATED 
013 1 1795 90$ [BR IF NONE AVAILABLE OR ERROR 
1797 : TABLE INDEX 
1798 : PAGE COUNT 
179 TABLE ENTRY ADDRESS 
1 
1 SECSV_WRT EQ SECSV_DZRO+1 
1 SECSV~DZRO EQ SECSV_CRF+1 
58 14 AA 03 01 EF 1 ASECST CRF #3 SECSW FLAG (R10) .RE :GET CRF, DZRO, WRT BITS 
58 9440 F AB 1 #<PTESA_TYP1 | STESM_TYPO>@-16.R8 ;OR JN TYPE BITS 
58 «58 )«210~—=—ié«*OL 1 #16,R8,R8 :PUT IN HIGH 16 BITS 
58S 80 1 R1,R8 SSET SECTION INDEX 
13 1 15$ :SKIP PFNMAP=ING PTE CREATION 
58 4 1 R [USE DEMAND-ZERO PTE FORMAT 
0B 11 1 128 [CONTINUE MAPPING SECTION 
58 28 AC 09 1 PFNCAP) ,R8 [GET STARTING PFN FOR SECTION 
58 80200000 BF C 1 #°X<PTESM_VALID ! PTESM_WINDOW>,R8 ;SET VALID AND WINDOW BITS 
A 04 1 R10 s INDICATE NO SECTION TABLE ENTRY 
6 D4 1 R6 [NO GSD ADDRESS 
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M ; - 3 
“SEP- :52: AX/VMS Macro V04-00 Page % 
= create and Map Section System Service 16-SEP-1984 01:52:15 “MAR: 1 (9) 
vous000 MAP PROCESS. SECTION go SEP= 1986 03:56:00 at guetta mia 
; TION PROT 
PH) BRE INE’ pom rpigwvom sath eto corer 
090 | St Oabe i 1S SEI saialetatae PONE OVO CSP)* WILE TAKE GARBAGE FROM STAC 
50 8h bt OBE 15 1518: CML $$ NORMAL .RO :WAS ALTERNATE SUCCESS CODE RETURNED? 
300 OBES 1851 MOVE RO. 12SP) {SAVE ALTERNATE CODE TO RETURN TO CALLER 
OC AE 8 D BE | 16$: POPL RO’ GET FLAGS BACK 
FO OBE 185$  POPRR*MCR2,R3D ;RO=STARTVA, R3=ENDVA 
2850 11 El OBE 1894 BBC = ASECSV_EXPREG,RO,175$ BR IF RANGE IS EXPLICITLY STATED 
4 é : FIND THE FIRST AVAILABLE VIRTUAL ADDRESS AND COMPUTE THE RANGE TO BE MAPPED. 
BFO 18¢7 ; : PAGE COUNT TO # OF 
pbigih x. @ 1859 pecyC RR {BYIES BETOEEN START VA AND END VA 
Se Bb tere 188 MOVL  @#CTLSGL_PHD,RO SGET PROCESS HEADER FOR PROCESS 
70 OP ee iE bY OBE. 1831 BBC FVASV_PI-R2, 17 SBR IF MAPPING INTO PO SPACE 
BOOtTRR UF FL Orbt ADDL3 #*XTFFPHDSL_FREP1VA(RO)-R3_:ENDING VA IN P1 SPAC 
ss soo oll EL ET is hey EAI OC Herrnc Uti I 
08 11 OCOE 1834 Bee SSTARTING VA IN PO SPACE 
ats OM ETD TG me: Bah Baty cpeomcns ne SE Dao rae 
A 03 OCiB | ; wer Ob 8 SYES - DOIT THE HARD WAY 
$9 is Nah 1838 MOVG —REURG {EET THE START AND END VA 
ado" «618 OFF 1BL0 JSB_ - MNGSIN_REGION ZIS IT NEW ADDRESS SPACE 
eee es a BC RO, 198" ZNO_= CREATE IT THE HARD WAY 
2D 30 «£9 OC25 184) PL. : :CHECK FIT OF SECTION IN THE SPACE 
7 38 4D bese 18G8 BNEG 198 ;NOT EXACT = DO IT THE HARD WAY 
cow ame 8 of Ocse 1845 SUBL  PRDSLBSTBASOFF CRS) .R10 :NORMALIZE SECTION ADDRESS IN CASE IT MOVES 
cco ae an a a tend ae 
TE :D0 IT TH 
OQ000000°EF 16 OC41 184 JSB-MMGSFAST CREA SUN-NORMALIZE SECTION ADDRESS 
A aS cae cr 
244 1 Oca 185) oe : ;UN- E SECTION ADDRESS 
SA 20.45 CO OCS] 1859 188: ADDL, BHOSL_PSTBASOFF(RS) RIO :UN-NORMALIZE SECTION ADDR 
7 Ree be Rese incr dots, puree S1s80,R2, NEEDED TO REDO OPERATION 
Beriece «BB Bee 1838 "  MOVAL = WMMGSMAPSECPAG RG sMAP SECTION PAGE ROUT 
me, OPE aes. a8 S  #MMGSV_NOWAIT IPLO,-—ZRETURN INSTEAD OF WAITING AT IPL 0 
oo rc aD gees 1882 NAGEL RAXACHODECFPS 1938 ome teens 
ead ee sO ee 
eR BREE IRD, Bat dt Pig Mee 
EO H i cea ges Bees ROL30 é TF suceesseut USE SUCCESS CODE AT 8(SP) 
ob ae $2 BO SUI Ines gos: ROME AGES 18 THERE SSO Ste EAT 
“BR 
D 13 0CB1 186 BEQL, = 898 AGCNT(R10) ;SET ACTUAL PAGE COUNT 
CAA 18 AA OL OCS OES BCP SUBL3 #1 ,SECSL_REFCNT (R10) ,SECEL PAGE TRIO) SET ACTUAL 
1c 13 989 1 BEQL 
: AST ONE PAGE WAS MAPPED. 
(BB 1871 ERI. RO CONYAIN THE RETURN RANGE VALUES 
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~SBTTL MAPSECPAG = MAP A SINGLE PROCESS/GLOBAL SECTION PAGE 


+e 
; FUNCTIONAL DESCRIPTION: 


> 


L CAUSE THE SECTION TABLE TO BE RELOCATED 
E PROCESS HEADER. | THIS HAPPENS WHEN THE 
ACK-TO-BACK WITH THE SECTION TABLE. THAT 
ADDRESS MUST BE RE COMPUTED AFTER EACH 

N TABLE INDEX NEVER CHANGES, BUT THE OFFSET 
OP OF THE PROCESS HEADER DOES. 


UNMAP_THE PAGES OF —— MEMORY GLOBAL 


om fe 
<Oo0oreceH mH —co 


Aan4902 mn Wowzr-<v 
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ZOO >—2TSz YF YPOCZD 


CALLING SEQUENCE: 
BSBW MMGSMAPSECPAG 
INPUT PARAMETERS: 


MODE FOR CREATING NEW PAGE 
Hts ADDRESS OF PAGE TO CREATE 


ADD 
PROCESS HEADER ADDRESS - P1 OR SYSTEM SPACE 
COUNT=1 OF PAGES TO BE MAPPED ACCORDING TO THE INPUT RANGE 
sonst if MAPPING FORWARDS IN THE VIRTUAL ADDRESS SPACE 
00 IF MAPPING BACKWARDS a _ VIRTUAL ADDRESS SPACE 
- NEW sowtees OF PAGE TABLE ENT 
COUNT-1 OF PAGES LEFT IN THE SECTION fe COULD BE MAPPED 
R10 = SECTION TABLE ENTRY ADDRESS OR 0 IF NONE APPL 
R11 = GLOBAL SECTION DESCRIPTOR ADDRESS OR 0 IF NONE APPLIES 
THE CURRENT IPL MUST BE AT AST! 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = ERROR STATUS CODE 
PR 5 4 
oR3-R7,R9 DESTROYED 


IMPLICIT OUTPUTS: 
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16-SEP=1 1384 8}: 263) AX/VMS Macro V04-00 


ection Syston ce 
A SINGLE PROCESS AL -SEP-19 SYS.SRCISYS CRMPSC. MAR; 1 


SIDE EFFECTS: 
NONE 


: PTE CORRESPONDING TO SPECIFIED VIRTUAL ADDRESS IS DELETED AND 

THE DESIRED PTE IS STORED 

: IF PAGE TABLE EXPANSION IS NECESSARY THEN THE FOLLOWING 

: ARE AFFECTED: 

: PHDSL_FREPOVA OR PHDSL FREPIVA ;1ST FREE PAGE AT END OF PO/P1 PAGE TABLE 
: PHDSL~POLRASTL OR PHDSC_PILR | :LENGTH OF PT IN HARDWARE PC 

: PR$ POLR OR R ‘LENGTH OF PT IN PROCESSOR REG 

: PHDSL_FREPTECNT sFREE PTE COUNTER 

COMPLETION CODES: 

: S$$_NORMAL ;SUCCESSFUL COMPLETION 

: SS$"NOPRIV 'NO PRIVILEGE TO CREATE/DELETE PAGE 
: SS$~VASFULL [VIRTUAL ADDRESS SPACE FULL 


S RRR ERRATA EEE 
s keeeeeeeeeeeeeee THE FOLLOWING CODE MAY BE PAGED txeeeeeeaeneeeere 
-PSECT YFSSSYSCRMPSC 


. 
° 
FS RARER AAA AAA AAA AAEEEAEAEEREREAAERERE EEE 


MMGSMAPSECPAG: 
CMPL = R6, RO :MORE PAGES THAN IN THE SECTION? 
BLEQ 108 BRAN CH IF _N 
MOVL  R9,R6 USE SECTION SIZE 

10$: ASHL #-9,R7,R9 55,08 EPENDING ON DIRECTION 
TSTL = R11 iT Tas. . GLOBAL SECTION MAPPING 
BNEQ  50$ "YES, BRANCH IF IS A GLOBAL SECTI 


; LOGIC FOR PROCESS SECTIONS ONLY: 


; PTE'S THAT ai A_PROCESS SECTION ARE FILLED IN WITH 
3 THE SECTION TABLE INDEX, AND THEREFORE, NO INCREMENT OR 
; DECREMENT IS NEEDED FOR SEQUENTIAL PTE'S. 


TSTL R10 CHECK IF NO SECTION TABLE Bg 
BEQL 30$ BR ON NONE, PFNMAP SECTION OR DZ 
CLRL R9 NO INC "POR “NORMAL PROCESS SEC PT 


LOGIC FOR ALL SECTIONS, EXCEPT PFNMAP AND SHARED MEMORY: 


THIS IS THE CREATE-PAGE LOOP FOR ALL SECTION MAPPING, 
EXCEPT FOR PFNMAP SECTIONS. 
RESIDENT GLOBAL SECTIONS ARE A SPECIAL CASE OF THIS 
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SYSCRMPSC - Create and Map Section System Service 16-SEP-1984 :52:15 VAX/VMS Macro V04-00 Page 40 
v04=000 MAPSECPAG - MAP A SINGLE PROCESS/ GLOBAL ety 84:25:43 YOYS SRCISYSCRMPSC_MAR: 1 9° 10) 
CF 15; 
4 AA OD £0 cee 1 20S: B #sE CSV RESIDENT, SECSW_FLAGS(R10) ,60$ ;RESIDENT GLOBAL SECTION 
FO AD 03 °AE DE OCF 1 MOVAL ®8°25$,B8°MMGSL PAGE SUBR (FP) “SKIP INIT CODE FOR SUBSEQUENT PAGES 
: AS Ce OD 18 25$: PHD$L_PSTBASOFF(R5),R10 ;SUBTRACT OFF POINTER THAT MIGHT CHANGE 
00000000'GF 16 OD 1 J$B G“MMGSCREPAG SCREATE AND STORE THE PAGE TABLE ENTRY 
20 AS CO OD 0 26S: ADDL PHDSL PSTBASOFF(RS5),R10 :ADD IN OFFSET THAT MAY HAVE CHANGED 
50 £9 0D1 1 BLBC sBRANCH IF ERROR 
18 AA D6 OD1 0 : INCL se L REF CNT(R10) SCOUNT USES OF THIS SECTION 
58 59:«CC¢ Dig ADDL R9,R :COMPUTE NEXT PTE'S CONTENTS 
0 b19 , 29$:  RSB 
ODiA § $ LOGIC FOR PFNMAP, SHARED MEMORY SECTIONS, AND DZERO CRF 
Bota 6 8 : THIS CODE ASSUMES THAT THERE IS NO SECTION TABLE ENTRY. 
OD1A 2030 : FOR SHARED MEMORY, THERE IS A SECTION TABLE ENTRY BUT THE REF ERENCE 
OD1A 2031 : COUNT IS NOT INCREMENTED FOR EA CH PAGE MAPPING TO IT. INSTEAD, THE 
DIA 6 ¢ : REFERENCE COUNT IS KEPT IN THE SHARED MEMORY GSD. THEREFORE, R10 IS 
OIA 033 : 0 FOR SHARED MEMORY MAPPING REQUESTS. 
02 58 15 £0 OD1A Bt S0s: BBS #PTESV. WINDOW, R8,40$ :PEN SECTION OR DZERO CRF? 
25) AF DE OD 5 § $ 40$:  MOVAL B*45$ B°NMGSL _PAGESUBR(FP) SKIP INIT CODE FOR SUBSEQUENT PAGES 
"00000066" GF 1g Op 3 O38 45$: JSB ala :CREATE AN AN D STORE THE PAGE TABLE ENTRY 
58 59 «(C0 $b E 2040 ADDL  R9.RB COMP MPUTE NEXT PTE'S CONTENTS 
OF 58 15 €1 OD31 2041 BBC pptesy _WINDOW,R8,49$ | _;BR IF NOT PFNMAP 
00000000'EF 58 15 00 ED 0039 04g CHPZV #PTESV PFN, #PTESS_PFN,R8, -MAGSGL AK MEM CHEC EC K PEN a 
0104 C5 6 Opa6 044 INCL PHD$L_MPINHIBIT(RS) ‘LOCK PROCESS ONTO PRIMARY PROCESSOR 
05 0044 2045 49$:  RSB : 
ae 
abe3 048 : LOGIC FOR SHMGSD UNMAP ONLY: 
D45 2050 : THIS CODE IS USED TO UNMAP A SHARED MEMORY GLOBAL SECTION 
0045 2051 : WHEN THE RACE CONDITION OCCURS CAUSING TWO SECTIONS OF THE 
0045 O9¢ ; SAME NAME ARE CREATED IN ONE SHARED MEMORY. THE SECOND 
OD49 093 ; SECTION CREATED, IS UNMAPPED AND RELEASED. 
28 «0A AB 91 op4s 038 Sos: cMPB GspsB_ TYPE (R11) ,ADYNSC -EXTGSD ‘Fina A PFENMAPPED SECTION? 
AB 1F 0D4B ba9 BLSSU 208 *BR IF NORMAL LOCAL MEMORY GSD 
CF 68 403 «€1 OD4p 38 BBC #GSDSV_INITFAIL,GSDSL _GsbFe(Ri1). 40$ ;BR IF NOT UNMAPPING VA 
FO AD S6'AF DE 0051 2060 MOVAL 6°55$,B°MMGSL_PAGESUBR(FP) ;SKIP INIT CODE FOR SUBSEQUENT PAGES 
00000000 ' GF 16 D56 2061 55$: JSB G*MMGSDELPAG sUNMAP A PAGE OF VAS 
0 D5 6¢ RSB :(DELPAG DOESN'T USE R8, SO ALL DONE) 
D5D 2064 : SPECIAL CODE FOR RESIDENT GLOBAL SECTIONS 
D5D 2065 : THE PTE IS SIMPLY MADE VALID WITH NO WORKING SET LIST ENT 
030 66 : THE WINDOW BIT IS NOT SET TO AVOID CONFUSION WITH BPN-SECTIONS 
FO A "AF D 68 &0$ MOVAL 8*°65$,B°MMGSL_PAGESUBR(FP) ;SKIP INIT CODE FOR SUBSEQUENT PAGES 
A ma ce D6 $3 re SUBL PHDSL_PST TOASOFF CG BS RO : SUBTRACT T OFF POINTER THAT MIGHT CHANGE 
e 48 D 0D6 p MOVG = RB, - (SP) iz ve P TE AND COUNT 
59 «58 EF 0D6 7 EXTZV #PTESV_GPTX,#PTESS_GPTX.R 3GET GPTX 


E 4 
SYSCRMPSC = Create and Map Section System Service -SEP-1 :52:15 VAX/VMS Macro Vv04-00 Page 41 $! 
v04=000 MAPSECPAG — MAP A SINGLE PROCESS/GLOBAL moet 7 83:28:48 SYS.SRCJSYSCRMPSC.MAR; 1 9 10) Py 
59 «(0 'FF49, (DO sOOD 7 MOVL §@MMG$G GPTBASECRO :GET THE GPTE 
2, 99 53 i OF 7 INSV = RO, WPT afte PF Ng He 5st _PFN, Rg :PUT’ PFN INTO PTE 
00 F 2 0D78 4 BBSS = #PTESV “VALID A SET THE VALID BIT 
$003 Bt cA ore {3 70$ Bick splesn Ve YP eres TyPt RB 
0 f 18 fs 7 SB LEKPAGTEL ;LOCK THE PAGE TABLE 
FF74 31 OD9 $8 BRW 26s :GO BACK TO COMMON CODE 
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Functional Description: 
This routine checks that a file is completely mapped (that the 
mapping pointers for the file are permanently resident) and that 
the file will remain completely mapped while the section exists. 
There is an assumption at work here that the ACP can tolerate the 
CATHEDRAL bit being turned on while it is working on extending 
the file. 

Calling Sequence: 
BSBW CHECK_WINDOW 

Input Parameters: 


R6 Channel on which file is open 
FP Address of SCRMPSC impure area 


Implicit Input: 

None 
Output Parameters: 

R Laaress hg, ale Control Block 

MMGSL_EFBLK(FP) Largest block in file that can be mapped 
Implicit Output: 

WCBSV_COMPLETE and WCBSV_CATHEDRAL bits are set in WCBSB_ACCESS. 
Completion Codes: 

S$S$_NORMAL : Successful completion 


SS$-EXBYTLM ; ACP remap operation failed 
Error codes returned from I0CSVERIFYCHAN 


: eeeeeereereeeeee THE FOLLOWING CODE MAY BE PAGED exxeenearaaeeeene 
. -PSECT YFSSSYSCRMPSC 

BEGIN_LOCKED_CODE: 

CHECK_WINDOW: 


MOVL 


R6,RO ; Input parameter to VERIFYCHAN 
JSB 1OC$VERIFYCHAN 


3 RI Address of channel control block 
3: R2 Index into channel table 


a ee en ee ee eB ee ee ee ed dd dd dd od = 3 3 I OO OO OOOO OCOOCOOOOOCOOO 


engl 


; Verify it and return CCB address 
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a 
CHECK_WINDOW INSURE FULLY MAPPED FILE -SEP-1 SYS.SRCISYSCRMPSC.MAR;1 (11) 
6 1 PUSHR oNSEg ASRS RSD : Save some registers 
52 1 BLBC RO,2 ; Branch if bad channel parameter 
12) 108: MOVE. PCBS _UCBCRBD-R Peg fy yt 
: J . 3 or device characteristics 
50 10004008 8F 38 és 14 BICL3 UCBSL Sela ad 3; Check that device ... 
14 #<DEVSM_DIR!- ; has ay be ries, 
144 DEVSM_FOD!=- : is file oriented, 
145 DEVSM_RND>,RO : and is random access 
44 148 BNEQ 30$ :; Error if any characteristic is ty + 
52 04 a8 01 14 BICL3 #1,CCBSL_WIND(R8) ,R2 ; Get window address, clearing low 
44 168 BEQL © 35$ : Error if no file open on channel 
14 BLSS 15$ : Branch if R2 pgencetne window address 
36 150 CVTWL «= R2, R2 : sign extend P 
50  00000000'9F 151 MOVL. aACTLSGL RO ; Get process le address 
50 A 1 § ADDL2 PHDSL_P Se TBA Sor F(RO) RO ; Point RO to base of section table 
52. 0C A04 1 OVL SE CSL- UINDOUCROD E CR25,R2 ; Get window address from PSTE 
20 154 BGEQ $ : my unless system address 
155 15$: SETIPL W*LOCK_IPL ock code and synchronize 
2A 0B A205 1 § BBC #WCBSV_ COMPLETE ,wCBSB ackesStna} 40$ 3; Step out of Line 
1 file is _ completely mapped 
535 18 Ag 1 8 MOVL YEBSL FCB CRE) RS test tts addre 
0 F BEQL : ALL done if ona FCP window 
161 : Note that the previous brarch relies on the fact that all non-FCP windows 
1o¢ 3; have pi reety had the CATHEDRAL bit set. In addition, there is special 
163 ; code in routine INITSECTBL that takes care of file size for non-FCP 
164 : files so that MMGSL_EFBLK does not have f°, be loaded. (In fact, the 
193 3 common exit code loads MMGSL_EFBLK with 
53 3C¢ a3 183 MOVL Aspe) EFBLK(R3),R3 Save end-of- file bloc 
00 0B A2 06 168 BBSS * v_ CATHEDRAL, wCBS$B AECESS(R f 20$ Set CATHEDRAL bit 
169 20S: SETIPL ; page f feults te occur 
E4 AD 53 170 MOVL oo PH el r oo end-of-file block 
50 (01 171 MOVZWL a : Indicate success 
Cc a 17 258: POPR a* meRD. Ry, ARee R5> 3; Restore registers 
5 ne RSB 3 and return 
50 O1CC BF 3C 175 30$: MOVZWL S$ 5S_MOTFILEDEV.RO ; Device is not file structured 
F621 : 178 BRB 25$ ; Restore registers and return 
50 026C 8F 3C OE 178 35$: MOVZWL S558_1VCHmLSEC.RO ; Return “invalid channel"’ error 
—eF 11 : i 1 BRB 25% ; Restore registers and return 
E 181 ; Call ACP with REMAP control function to insure that all mapping pointers for 
: 9 : § 3; this file are ee resident. 
E 184 40$: SETIPL 3 Lover IPL to call eytten services 
— 00000040 8F 2 O€ ¢ 185 see a 18st gt Enelns aare cate space for FIB on stack 
6E 00460 BF 00 6€ C O&13 21 move mriake, #0 Pf fas LENGTH. ( L FIB with zeros 
16 AE 10 BO O€1B 21 MOV BSC_REMAP,FIBSO_ ENTRUEUNC (SP); Set ACP control function 
— DF OEIF 21 3 PUSHAL ale ; Make Fie descriptor (address 
0 BF DD 0E21 1 PUSHL PRS LENGTH : and length) 
E 0 OE27 21 MOVL : Save FIB address for sate call 
4 7E 7E QEGA 219 ROVAa — =(P P) Rd : 10S 
E2D 138 $Q10W_S erin’ #EXESC_SYSEFN,- 
E2D 1 CHAN=R6,- 
E2D 219% FUNC=#108 _ACPCONTROL = 


Allocate space for 
| 
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SYSCRMPSC = Create and Map Sectio Systee scevles 16-SEP-1984 AX/VMS Macro V04-00 Pa a 
v04-000 CHECK _WINDOW OW INSURE FU ULLY MAPPED FILE §-§ oats 7 8}: 36; 48 SYS.SR cj gyse RMPSC.MAR;1 - (11) 
D 2195 SB=(R4),- 
a estas 
51 64 HS 1 MOVZWL (R4),R1 s SAVE sane FROM I0SB 
SE SOA 48 01 MOVAB <rig K_LENGTH*+8+8>(SP),SP ; AND RENO vE 10s8 AND FIB FROM STACK 
Ab 5 4F BLBC RO, $ SBRANCH MLE F Alt D 100 EVE 1/0 REQUEST 
50 D MOVL R1,R OTHER oe 10 STATUS IN RO 
AO 50 BLBC Fe 25$ BRAN iH REMAP FAILED 
FFGE 1 TH BRw 1 § ‘REMAP Rant SUCCESSFUL. REPEAT CHECKS 
£58 4 LOCK_IPL: 
00000008 ; ? 5 -LONG IPLS$_SYNCH ; Synchronization IPL 
; : § END_LOCKED_CODE: 
ESF $ The following test insures that the code that is dynamically locked 
Bear 19 ; does not span more than two consecutive pages. 
OESF 12 ASSUME <END_LOCKED_CODE-BEGIN_LOCKED_CODE> LE 512 
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SUBTITLE MMGSRET_BYT_QUOTA RETURN BYTCNT QUOTA 
Return BYTCNT Quota to Owner of File 
Functional Description: 
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When a window is converted to a shared WCB as part of global 
section creation, the BYTCNT quota that was charged against 
the process that opened the file must be returned. 

Input Parameter: 
RO Address of primary WCB 

Implicit Input: 
JIB of process that opened file 

Output Parameters: 
None 

Implicit Output: 
JIBSL_BYTCNT is updated to account for the entire chain of WCBs. 
Each WCB in a chain of WCBs has the following fields changed 


WCBSL_PID is cleared 
WCBSW_REFCNT is 


set to 1 
WCBSV_SHRWCB in WCBSB_ACCESS is set 


Bete Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge Ge Se Se Se Sete Se Se Ge Ge Se Se Se Se Ge Se 
> 


MMGSRET_BYT_ QUOTA: : 
PUSAR 


ei i Rd Mi Ti Ri Ri Ris Bi Da Bis Bs Bi Bis Bs Des Bi Bi De De Di Be De Be es Be De es es Ds De De Des De Be | 


CLRL wcbsi PID(RO) t Zap PID to eliminate Link to process 
MOVW #1, WCBSe_REFCNT(RO) > Initialize REFCNT for one access 
BiS8 0. #uCBSm SARWCB WCBSB_ACCESS (RO) ; Set SHRWCB bit 
MOVL wCBSL_CINK(R SLR ; 


DPDPD PUPS BBS BE BE ENA AIA IAI AIP RPOPININININININ SS OS 


IP = DS ODNA UNE WIS OD NAN EWN SO ONAN EWN OOO NOAUNE AN OOOO 
uw 


#*M<RO,R1,R2,R3> ; Get some registers to work with 
DSBINT 308 : Synchronize access to data 
MOVZUL Hien PID(RO) ,R1 ; Get process index 
F MOVL  @SCH$GL_PCBVECCR1].R1  : Convert to PCB address 
7 CMPL PCBSL_PID(R1) ,WCBSL_PID(RO) ; Make a consistency check 
C BNEQ 208 ; Return if PIDs do not match 
MOVL peeks IBCRT) LA 3 faAnatly store JIB address 
CLRL OR > Initialize sum 
108: MOVZWL BOY SIZE(RO) Re ; Extract size of next WCB 
; ADDL2 R2,R : Include in sum 
F 


Get next WCB in chain 
; Loop back if next WCB exists 


‘ ; Restore BYTCNT quota 
3185 BYTLA(R ; Restore byte Limit also. 
NCW Ji6 _FICCNT(R1) ; One less file te worry about 
208: ENBINT 3; Allow rescheduling to occur 


5 


ADDL By-4 18st BYTCNT(R1) 
R 1) 


POPR #*A<RO,R1,R2,R3> Restore registers 
and return 
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Ereare and nee 5° 
SRET_BYT “Quota 


00000008 ~ 8 | 30$: 
Be 


ction 
RETURN 


BY 


- LONG 


ASSUME <.=-5$> LE 512 


em Ser 
CNT QU 


IPL 


aralst \SCSEBT/REL QU:ER4S YANN Macro, wO4e00 


$_SYNCH : Synchronization IPL 
3; Can only lock 512 bytes this way 


roe tt 
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» SUBTITLE READ_RESIDENT = INITIALIZE A RESIDENT GLOBAL SECTION 
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Functional Description: 
The contents of a resident sae section is read into memory. 
Internal interfaces are used to queue the IRP. 
On error, the physical pages are ot pe § 

Input Parameters 


RS - First global PTE 
R? = page count 


; Registers destroyed 
RO,R1,R2,R3,R4,R7 
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te and 
ESIDEN 
EB 7 
EB ;+ 
—B 
u 
EB § : 
—B 
EB 4; 
FBS 5584 
EB $i 
EB 8 : 
EB 
EB 0 
EB 91 
EB 38 
FBS 5594 
EB 95 
EB 38 skeeeneree ESS THAN poem, 4 GENERAL USEteeeeaereneeeeeeeereeereeee 
EB 3 THIS ROUTINE DOES A WAIT FOR 10 COMPLETION HOLDING GSD MUTEX 
EB 38 THIS ROUTINE DOES NOT CHEC I 
EB 9 THIS IS NOT ACCEPTABLE FOR A DOCUMENTED, GENERAL USE paiten ACE 
EB Bo ; THIS IS INTENDED OMLY FOR USE DURING SYSTEM INITIALIZATION 
0EB 1 MeRAAAAASAAAAALELAALELLLALALELALESE SESE L ERE EEE ERE EERE EERE EERE SERRE ERR ES 
ab ie 
eB 
oes 04 READ_RESIDENT: 
57 BD EB B2 PUSHL R7 3; Save count 
51 00C4 8F C EBS $ MOVZWL #IRPSC_LENGTH,R1 3; Get an IRP 
00000000" EF 16 0&B9 230 JSB EXESALONONPAGED + Return IRP in R2 
6D 50 €9 OEBF 3 BL3C RO,50$ 3; None available 
54 00000000" EF dO gbg MOVL SERSEL -CURPCB.RA 
55 $ BO ECB 9 ROW RO KS IRP address 
‘ r 
14 AS _00000F68'EF pe ECE 1 MOVAL at IRPSL_ASTPRM(RS) : AST to free the IRP 
23 AS e a4 90 EDS 13 ROVE PCB $6. PRIBTR4) - IRPSB_ PRI(RS) ; Transfer priority 
50 10 AA ED 15 MOVL SECS VBN(R10) ,RO ; Starting VBN 
57 09 EE 18 ASHL TRI ; Byte count 
52 OC AA DO OEE 1 MOVL §=§ eS. -WINDOW(R10),R2 ; WCB address 
, uh 6.)|hCUe EEA 1 MOVL ; Save IRP address 
00000000°EF 16 OEE 1 JSB EXESB DPKTSWPR ; Build and queue IRP 
8 BA OEF POPR a*n< : a back Any SVAPTE 
51 01 b0 EF 10$ MOVL sRSNS sia R1 : Wait for 
12 a'e4'e9'9 8 4 ae sf § Jse. 1008 48 WAIT :; Set up te weit for the resource 
FF oc OF 5 4 MOVPSL ; Wait requires PC-PSL 
00000000 ' EF 16 : . 5 JSB mneeSvPCTx ; Go wait 
FOD $ : We need some way to tell when the 1/0 is done, but we can't get an 
FOD 8 : AST since we are at ASTDEL. inated. look for the IRP to be put 
: 4 3 on the AST queue. 
50 ,*° AS 9 F ? 9 MOVAB pest ASTQFL(R4) ,RO ; Get AST queue 
28 D F § MOVL : Save it for comparison 
b 60 DO OFI4 20$:  MOVL RRoy. RO : Next AST on queue 


<" 


L 4 
SYSCRMPSC - Create and Map Section System Service 16-SEP-1984 AX/VMS Macro V04-00 Page 48 
v04-000 READ_RESIDENT : INITIALIZE A RESIDENT eet 8}: 36: 48 YeYS. SRCISYSCRMPSC.MAR;1 ° (11) 
51 38 re F17 4 CMPL RO,R1 : Are we back at beginning 
: 13° OFIA 5 BEQL «=s«108 ; Yes = go wait some more 
57 o FIC § CMPL RO,R7 ; Is this the one we want 
F 1 FIF BNEQ 20$ 3 No - look for another one 
12 @ DA : ] 8 MTPR #IPLS_ASTDEL,#PRS_IPL ; Go back to reasonable IPL 
50 38 A7 3C OFO4 2340 © MOVZWL IRPS$L_IOST1(R7),RO ; Get 10 status 
be 8 8S BESS S8zf BLBC RO, 508 : Error 
SE 04 4 F2B 4 ADDL #4,SP ; Clean up stack 
F2E 4 RSB 
roe 53c8 ; 
: : rt : Error = clean up and release physical memory 
57 BEDO OF 2F rts bos: POPL R7 ; Get back the page count 
50 DD OF32 4 PUSHL RO 3; Save the error status 
12 OOOOOF64'EF DA OF34 50 60$: MTPR ist ,#PRS_IPL 
E0ds0 o pO OF3B 51 MOVL (R3),RO 3; Get the GPTE 
50 F CA OF E 3 BICL #C< tbr TESM_PFN > Leave only PFN 
00906000. Fes B7 OFS 5 DECW Spr sau REFENTEROJ 
4 16 OF4 54 JSB MMGS N ; Release the page 
cia 04 18 Se 32 A MMGS ECPTREF : § gr ene) L page table ref count 
ie. 2 DA ore 3? ii 4 PLS ASTDEL ,#PRS_IPL : _ co to reasonable IPL 
F47B 331 are) 2B BRW FRESTXERR : Error clean-up - expects RO on stack 
00000008 ae 61 100$: .LONG IPLS_SYNCH 3 Synchronization jPt 
4 86 ASSUME <. = 50$> LE 512 : Can only lock 512 bytes this way 
F6 64 ; 
ars 65 ; 1/0 conplotion AST - delivered after IPL drops 
i $6 : 3; Free the IRP 
50 55 00 Org 68 500$:  MOVL 
00000000°EF 16 OF6B 2369 JSB ERE SDEANONPAGED 
05 OF71 70 RSB 
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Functional description: 
Lock the page table in memory. 
Input Parameters 


For LCKPAGTBL only 
R2 = VA of page represented by page table to be locked 


For ,CKPAGTOL 1 only 
Ri = virtual page number 
R3 = pointer to base of appropriate page table 


Registers destroyed 
AEEPASTOL only 


REAR EERE ERE A EERE AEA AAAAAAAAAAAARAAAAEEEES 
steeeeeeeeeneee THIS CODE MUST NOT PAGE *eeeneeaeeaeeeereeeneeereeeeeeene 


» SAVE PSECT 
-PSECT SMMGCOD,LONG 


. 
a 
FRR AAA EERE AEE AAARAAAAAAERAAAAARAKRE ES 
e 


Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Sete te Ge 


0000 


LCKPAGTBL: 


BUM OOQOOSPININIPIPININIMIPIPIPIPIPIPINIPIPIPIPIPIPUIPIPIPIND 


Bo BB BB BBS BB NANA AIA AAA A AAA A AAAS 


RIPPIMININIMININS 2 I 4 MF QOOODCOODOOOOOOOOOO0 OOO OW W909 000009 OO IN NINN 
NAAN 9S ODA UE WIN 2 O ODI NA UE WIN = S ODNAUS WIN $= 9 OONAUE WO OONAOUL UM 


| gn ng gt oe ney wh ty a Ie + 9 Ay To 6 +o + ay iy i Bey I Dy By ey Dy By By Dy Sy By Py Dy 


no ee ee ee ee i a a i i i ik i i i i a i a i A 


oO 
SSOSSOOSOSSOOSS SOOGCSCOOOSOOOSOSOSOSSOSSOSOOOSOSOSOOOSOSOOSOOOOOOOOOOOOOOOOOO 


0B BB PUSHR #*M<RO,R1,R3> 
FFFB BSBW «© MMGSPTEREF :GET THE SVAPTE 
50 01 0 MOVL 3;LOCK INDICATOR 
FFFS* 0 BSBW MMGSMOVPTLOCK 300 ALL THE WORK 
12 O02 ODA MTPR #IPL$_ASTDEL ,#PRS_IPL 3WE DON'T WANT TO STAY AT SYNCH 
08 BA f POPR #*M<RO,R1,R35> 
5 : RSS 
1 LCKPAGTBL1: 
98 1 PUSHR #*M<RO,RS> \ 
¢ 9 3 3 BLBS P sIndicator for first time through loop 
51 F 8F 6 BITB #*X7F RI zsIls it first one in new page 
_.) S A BEQL 20$ Yes - do it the hard way 
is ; DA C MTPR #IPLS_SYNCH #PRS_IPL Don't let anything change 
53 00 B3 D F MOVA a(r3)CR1) 3Get the SVAP 
52. 55._ 00¢ c3 ¢ 4 SUBLS PHDSL_POBR(RS),R3.R2 Byte offset of PTE 
50 $2 7 8F 7 A ASHL - R ;Byte index of containing page table 
52. 55 64 AS F ADDL3 PHDSL_PTWSLELCK(RS).RS,R2 ;Locked working set List entries 
52 30 C0 4 ADOL RO,R2 sAddress of count byte for # of locked 
7 ; WSLE's in the page table 
6 96 7 INCB (R2) zAdd one for WINDOW/MA780 global page 
12 QO DA 9 10$ MTPR #IPLS_ASTDEL,#PRS_IPL ;We don't want to stay at Synch 
0 A C POPR #*mc<rO,R3> 
5 } RSB 
59 01 8A é 20$: BICB #1,R9 ;Just in case this is the first time 
00 8341 + 05 2 TSTL ack3)CR1) sMake sure page table is resident 
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WTPR HPL SYNCH WPRS_IPL = ;Don't_L 
Lo acr3)CR1I,R3 :Get the 
MOVL #1,R0 iLock in 
BSBW WMGSHOVPTLOCK :Do all 
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- Create and Map Section System 
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RIGHTSLIST 
PROCESS 
RET 
PHD 
IR 
GSDGRPFL 
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Symbol table 

BRGSTFULL 
XESGL 
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Symbol table 


MAPSEC_RET 
MAP LOCAL MEM 


MMGSALOSHMG 
MMGSALOSHMPAG 
MMGSCREDEL 


$GL"MAX 
MMGS$GL~SYSPHD 
MMGSGSDMTXULK 
MMGSGSDSCN 
MMGSINADRINI 
MMGSINCS 


HMRE F 
MMGSIN_REGION 
MAGS _CALLEDIPL 


RWRGSL _RAXACRODE 


MMGSUNIOU 
MMGSVF YSECFLG 
MMGSV_CHGPAGF IL 
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MMG$V 
MOV 


— (7 De Ct 


PHDSL-FREPIVA 
PHDSL-MPINHIBIT 
PHDSL~POBR 
PHDSL~P1BR 
PHDSL—PSTBASOF F 
PHDSL ~PTWSLELCK 
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PIECE SMAPPED 
PRE -MAP_ERR 
PRIPL 
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Symbol table , . eet 83:28:43 YOYS SRCISYSCRMPSC MAR: 1 (12) 
PTESV_OWN = 17 SHD$V_BI TMAPLCK = 8 1 
PTESV_PFN = ” SHD$SW_GSDQUOTA 2 f 
PTESV_PROT = 8 SHM_GSD R 
PTESV_TYPO = 16 SHM_GS_MAP ACR 
PTESV_VALID = 1F SHM_NOT MAP FR 
$V"WIND = 3 SHM_UNMAPPED CR 
READ_RESIDENT re R 0 SS$_ABORT = C 
RELEAS_GSD_RE AA R 0 SS$_ACCVIO s 8 § 
RELEAS_PAG RET 3 R 8 S5$_CREATED = : 
RELEAS_SHMGS 4 7F2 R SS$_ENDOFFILE = 00000870 
G = 000 43 SS$_EXGBLPAGF IL = 164 
RETADR = $88 $0 SS$_GPTFULL = C4 
RSNS_ASTWAIT = 00 1 SS$_GSDFULL = cc 
SCHSGL_CURPCB ekeeekee x 8 SS$_IDMISMATCH = 00 F4 
SCHSGL_PCBVEC eeeeeeee =X SS$_ILLPAGCNT = Bp o be 
SCH$GQ_FPGWQ eeReeeee x 0 SS$_IVCHNLSEC = + sgt 
SCHSLOCKW eeereree X 0 SS$_IVLVEC = 0000203C¢ 
SECSB_PFC = 00000008 SS$_IVSECFLG = 0000016C 
SECSC_LENGTH = 00000020 SS$_IVSECIDCTL = 0000 ee 
SECSK_MATLEQ = 4444 SS$_IVSSRQ = 00000174 
SECSL_GSD = 0000000 SS$_NOPRIV = 464 6 
SECSL_PAGCNT = 0000001C S$S$_NORMAL = 00000001 
SECSL_REF CNT = 4444 49 SS$_NOSUCHSEC = 00000978 
SECSL_VBN = 0000001 SS$_NOTFILEDEV = Q00001CC 
SECSL_VPXPFC = 00000008 SS$_NOWRT = 4 AS 
SECSL_WINDOW = SOR ORS S$S$_SHMGSNOTMAP = 0000036C 
SECSM_CRF = 0000000 SYSSQ10W eeeeeeee GX 02 
SECSM_DZRO = 00000004 TRY_NXT_BA 0000061B R 02 
SECSM_ = 00000008 UCBSL_DEVCHAR = 00000038 
SEC$S_AMOD = 0000000 ULKGSBMTXRET 4s oop R 0s 
SEC$S_WRTMOD = $44 48 ULKGSDMTXRET1 4 448 R 2 
SECS$V_AMOD = 0000000 ULKGSDMTXRET2 0000413 R 02 
SECS$V_CRF = sa 4g VASS_VPN = 00000015 
SEC$V_DZRO = 00000002 VA$SV_P1 = 4464 93 
SECSV_EXECUTE = BoobOoTT VASV_VPN = $448 
SECSV_EXPREG = 00000011 VBN = 00000028 
SEC$V_GBL = sie 4 it WCBSB_ACCESS s BRD oeT 
SECSV_PAGF IL = 44 WCBSL_FCB = 0000001 
SECSV_PERM = 000 it 3 WCBSL_LINK = 44443 
SECSV_PFNMAP = 0000001 WCBSL_PID = 000000 f 
SECSV_RESIDENT = 0000000D WCBSM_SHRW = 0000000 
SECSV_SHMGS = 0004 WCBSV_CATHEDRAL = 0000 43 
SEC$V_SYSGBL = OOOF WCBSV_COMPLETE = 0000000 
WRT = 00 3 WCBSV_NOTRUNC = $ $0 
= . ° WCBSV_SHRWC = 
FLA = 1 WCBSV_WRIT = 00 B85 4 
= 000 6 WCBSW_ACO = 00000014 
= 4 WCBSW_NMA = 00000 18 
= 4 WCBSW"P1_ COUNT = 00 99 3 
Sch ga Meany : Seen 
aeeeeeee =X WRTMOD_TBL 00 00 FBR 02 
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PSECT name Allocation PSECT No. Attributes 
ABS . 00 ( -»> 0O ¢ 0.) NOPIC USR CON ABS LCL 

$aBS$ 09 ( 8} 1¢ 1.) NOPIC USR CON ABS- LCL NOSHR 

YFSSSYSCRMPSC F ( 3954.) ; ( ¢-3 NOPIC USR CON REL LCL NOSHR 

YSEXEPAGED 4 ( 16.) ( 3.) NOPIC USR CON REL LCL NOSHR 

SMMGCOD 00000056 ( 86.) 4 ( 4.) NOPIC USR CON’ REL LCL NOSHR 
poem meream erences sees me aaa + 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00:00:00 08 0: 4 1.29 

ponnene processing 2 0: : B% 0: g: : g 

— table sort ait 5; % 6:67 if at 

Symbol table output 1 6; : 0:36 0: 0:60: 1 

Psect synopsis output 0: . . 0:00:00.49 

Cross-reference output 0:00:00.00 0: 9:90.09 

Assembler run totals 126 0:00:43.96 00:02:31. 


The_working set store was 2400 pages. 
Sg bytes 5 (355 pages) of virtual memory were used to buffer the intermediate sade; 
ynere were 160 pages of symbol table space oh loca ed to hold 2875 non-local and 203 local symbols. 
source "Hinge were read in Pass 1, produci "9. 6 object records in Pass 2. 


3 pages of virtual memory were used to define macros. 


eer es eee sem ences ee nee ee eee} 


Macro Library name Macros defined 

~$355$DUA28: Esys. -OBJJLIB.MLB;1 25 
5SDUA SYSLIBJSTARLET.MLB;2 1 

Tova (all Libraries) 4 


2991 GETS were required to define 43 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSCRMPSC/OBJ=OBJ$:SYSCRMPSC MSRC$:SYSCRMPSC/UPDATE=(ENHS: SYSCRMPSC) +EXECMLS/LIB 


EXE 
EXE 
EXE 


NOSHR 5 — 


o V04-00 Page 
CRMPSC.MAR; 1 


NOWRT NOVEC BYTE 


WRT NOVEC LONG 


4 
by 


$) 
v¢ 


L EQUIPMENT CORPORATION 
ENTIAL .AND PROPRIETARY 


AH-BT13A-SE 


G 
VAX/VMS_V4.0 N 


DIGIT 
CONFI 


1383 


A 
: 


